Question

关于vba语言控制图片在ppt中的精确位置问题？

我想问一下，我想实现一下的功能， 用excel 中的vba语言把excel文档中的一张图片复制粘贴到ppt中，ppt中的位置是精确的。我想问下在设置图片大小的数字中比如（1.15“）和vba语言中的设置是如何对应的？？？

ActiveSheet.Shapes("Chart 1").Height = 82.8ActiveSheet.Shapes("Chart 1").Width = 162
比如以上的82.8 和162 对应到图片设置中（红圈）是多少？ 怎么算的呢？？

Answer 1

在 Excel VBA 中，可以这样转换（比如 1.15 英寸 = 82.8 点阵）：

Debug.Print Application.InchesToPoints(1.15) ' 返回 82.8

 

相反，在 Word VBA 中，可以这样转换（比如 82.8 点阵 = 1.15 英寸）：

Debug.Print Application.PointsToInches(82.8) ' 返回 1.15

Answer 2

录制宏，手工调整，停止录制，查看宏，会有你需要的。