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

Question

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

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

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

稍后将粘贴我正在使用的代码。

Answer 1

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

例子：

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

出于示例的目的，我假设您是从 Excel 调用它，并且只想知道如何使用它的格式提取值。我们正在使用范围 A1 中第一个工作簿的第一张表。它应该很容易根据您的特定需求进行更新。

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