Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
通过vba设置ppt文本框中的数字格式_Vba_Excel_Powerpoint - Fatal编程技术网

通过vba设置ppt文本框中的数字格式

通过vba设置ppt文本框中的数字格式,vba,excel,powerpoint,Vba,Excel,Powerpoint,我已通过VBA连接Excel和Powerpoint,将Excel工作表中的值发送到PPT 除了一件事之外,所有的工作都很好:我需要将Excel中的单元格中的值转换为ppt中的文本框形状,同时保留Excel中的数字格式。我该怎么做 我这样做大约10个这样的框和我目前的代码使用复制从excel和粘贴在powerpoint,不断给出超出范围的错误随机的地方 将在短时间内粘贴我正在使用的代码 打开值时,请尝试使用Excel中的数字格式 例如: With Workbooks(1).Sheets(1).Ra

我已通过VBA连接Excel和Powerpoint,将Excel工作表中的值发送到PPT

除了一件事之外,所有的工作都很好:我需要将Excel中的单元格中的值转换为ppt中的文本框形状,同时保留Excel中的数字格式。我该怎么做

我这样做大约10个这样的框和我目前的代码使用复制从excel和粘贴在powerpoint,不断给出超出范围的错误随机的地方


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

打开
值时,请尝试使用Excel中的
数字格式

例如:

With Workbooks(1).Sheets(1).Range("A1")
    valueToPaste = Format(.Value, .NumberFormat)
End With
在本例中,我假装您是从Excel调用此函数,只想知道如何使用其格式提取值。我们正在使用A1范围内第一份工作簿的第一页。它应该很容易更新到您的特定需求


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

我假装您是从Excel调用它的-为什么?这个问题是关于powerpoint的,所以它应该解决这个问题,而不是一个更简单但不相关的解决方法。@brettdj因为OP没有指定,如果使用powerpoint,方法会略有不同,所以我指出了我使用的调用程序。我按照指定的方式阅读了它。需要将Excel中的单元格中的值转换为PPT中的文本框形状才能查看代码。如何从excel复制到PPT文本框?