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

Question

我已通过VBA连接Excel和Powerpoint，以便将Excel表格中的值发送到PPT。

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

我为大约10个这样的盒子和我当前的代码使用excel的复制并粘贴在powerpoint中，继续在随机位置上给出超出范围的错误。

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

Answer 1

当您使用numberFormat时，请尝试使用Excel中的Value。

示例：

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

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

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