将 PowerPoint 从 Excel 更新为小数点后 3 位

Question

我正在创建一个 VBA 代码，它在 shapeslide 处更改特定的 shapename 并将其值更新为 shapetext。这些是在 Excel 中从单元格 J2,K2,L2 开始预定义的。 Excel 中 shapetext 的值是函数 =ROUND(A2+B2,3)，因为我希望 PowerPoint 更新后保留 3 个小数点。在 Excel 中，shapetext 的这些值显示正确，例如“2,330”（我使用的是 Swedish Office 软件包，其中“,”是小数点），但是当我更新相应的PowerPoint 中的值我得到值“2,33”——省略了“0”。如果数字中没有 "ending" 零，则 PowerPoint 会正确更新，例如 Excel 中的“0,348”在 PowerPoint 中给出“0,348”。

Set pppres = ppapp.ActivePresentation
r = 2
Do
    shapeslide = Cells(r, 10)
    shapename = Cells(r, 11)
    shapetext = Cells(r, 12)
    pppres.Slides(shapeslide).Shapes(shapename).TextEffect.Text = shapetext
    r = r + 1
Loop Until Cells(r, 10) = ""

PowerPoint 是否可以 "force" 显示带 3 位小数的值，即使它是结尾零？

提前致谢

Answer 1

试试这个（未测试）

pppres.Slides(shapeslide).Shapes(shapename).TextEffect.Text = _
Format(val(trim(shapetext)),"0.000")

将 PowerPoint 从 Excel 更新为小数点后 3 位

Update PowerPoint from Excel with 3 decimal points

excel

powerpoint

vba