2

私はVBAを快適に使用して、Excelスプレッドシートのコンテンツのリストを反復処理し、別のPowerpointファイルにスライドを作成しています。そのビットは機能します。

ただし、Powerpointプレゼンテーションに写真を追加できないようです。私はもう試した：

Dim pic
Set pic = activeSlide.Shapes.AddPicture("/Users/Pedro/My_Picture.png", False, True, 10, 10)

...ランタイムエラー5（無効なプロシージャ呼び出しまたは引数）で失敗します。私はMacOSX、Office2011を使用していることに注意してください。

また、UserPicture（）を使用してオブジェクトの塗りつぶしを無効に設定しようとしました。

これについて助けてくれてありがとう！

4

2 に答える 2

2

これは PPT の Windows バージョンでは機能しますが、Mac 2011 では失敗します。

Sub thing()
Dim oPic As Shape
Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture("http://www.somesite.xxx/directory/filename.jpg", False, True, 0, 0, -1, -1)
End Sub

残念ながら、Mac PPT では機能するはずの (Win バージョンでも機能する) 機能の多くが機能しません。

最後の 2 つの -1 パラメータは、PPT に「自然な」サイズで画像を取り込むように指示します。つまり、手動で挿入した場合に通常画像を挿入するサイズです。これにより、画像の歪みが回避されます。

于 2013-03-04T04:08:10.827 に答える
0

問題は、使用しているパス スタイルです。以下が機能します。

#If Mac Then
    imagePath = (MacScript("get path to startup disk as string") & "Users:Pedro:My_Picture.png")
#Else
    imagePath = "C:\path\to\My_Picture.png"
#End If

activeSlide.Shapes.AddPicture(imagePath, False, True, 10, 10)
于 2014-04-30T06:58:37.453 に答える