vba - 通过vba在ppt中的文本框中格式化数字

Question

我已通过 VBA 连接 Excel 和 Powerpoint，以将值从 Excel 工作表发送到 PPT。

除了一件事，一切都运行良好：我需要将值从 Excel 中的单元格传输到 ppt 中的文本框形状，同时保留 excel 中的数字格式。我怎么做？

我对大约 10 个这样的框执行此操作，并且我当前的代码使用 excel 中的复制并粘贴到 powerpoint 中，不断在随机位置给出超出范围的错误。

将在短时间内粘贴我正在使用的代码。

Answer 1

当numberFormat您带来Value.

例子：

With Workbooks(1).Sheets(1).Range("A1")
    valueToPaste = Format(.Value, .NumberFormat)
End With

为了这个例子，我假装你是从 Excel 调用它，只想知道如何用它的格式提取值。我们正在使用范围 A1 中第一个工作簿的第一张表。它应该很容易更新到您的特定需求。

可能有一些例外，特别是对于自定义格式，但这应该适用于您在 Excel 中使用的大多数格式。