vba - 使用 3 个小数点从 Excel 更新 PowerPoint

Question

我正在创建一个改变特定 shapename 的 VBA 代码在 shapeslide并将其值更新为 shapetext .这些是在 Excel 中从单元格 J2,K2,L2 开始预定义的。 . shapetext 的值在 Excel 中是函数 =ROUND(A2+B2,3) ，因为我希望 PowerPoint 更新为 3 个小数点。在 Excel 中，这些值为 shapetext正确显示，例如“2,330”(我使用的是瑞典 Office 软件包，其中“，”是小数点)，但是当我在 PowerPoint 中更新相应的值时，我得到的值是“2,33”- “0”被省略。如果数字中没有“结尾”零，则 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 以 3 位小数显示该值，即使它是一个结尾的零？

提前致谢

Answer 1

试试这个(未经测试)

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