VBA POWERPOINT：從PowerPoint縮小Word圖片

Question

當我在word宏中使用它以將所有圖像縮小到9.3cm時，此功能有效

Sub ShrinkWordImages()
Dim iShp As InlineShape

For Each iShp In ActiveDocument.InlineShapes
    iShp.LockAspectRatio = msoTrue
    iShp.Width = CentimetersToPoints(9.3)
Next iShp

End Sub

但是，當我嘗試從PowerPoint宏中運行時，引用一個Word文檔（所有引用均正確放置），該Word文檔中的圖像就消失了。 從powerpoint，我使用它，它的唯一區別是：

For Each iShp In wrdDoc.InlineShapes

正確聲明和設置了wrdDoc的位置。

宏完成后，Powerpoint也會崩潰。 我嘗試將iShp更改為變體，但這沒有幫助。

編輯 ：所以我現在已經確定CentimetersToPoints（9.3）在PowerPoint中返回0，而在Word中返回263左右。 現在看。

Answer 1

在您的情況下，PowerPoint中沒有像CentimetersToPoint這樣的東西。 您需要引用您的Word對象變量來獲取尺寸。 也許是這樣的：

Sub CentimetersTo_Word()

    Dim WRD As Object
    Set WRD = CreateObject("Word.Application")

    Debug.Print WRD.centimeterstopoints(10)

End Sub

因此，只需在CentimetersToPoint之前添加Word應用程序引用

Answer 2

只是做了我自己的方法...就行了。

Function CmToPt(pt As Single) As Single
CmToPt = pt * 28.35
End Function

不知道為什么正常的人沒有工作，但這可以解決問題。