1

以前にローカル サーバー (XAMPP) からテキスト ファイルを読み取って表示したインタラクティブな Powerpoint プレゼンテーションを作成しています。ユーザーが応答を手書きできるように更新し、それをスライドショーに表示したいと思います。誰かがスタイラスを使用できるようにするjQueryプラグインがあり、「図面」をローカルサーバーに画像として保存します。

私の質問は、VBA マクロを使用して画像を PowerPoint に挿入するにはどうすればよいですか? または、画像のファイル パスは常に同じですが、別の画像に置き換えられるため、スライド上の画像を何とか「更新」できますか? 混乱している場合は申し訳ありません。

これは私が試したVBAです：

Sub insert()
    Dim oPic As Shape
    Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture("http://localhost/image.png", False, True, 0, 0, -1, -1)
End Sub

サーバーではなく、コンピューター上の画像のパスを取得することもできました。

マクロを実行すると、「ファイルが見つかりません」というエラーが表示されます。誰が何が悪いのか知っていますか？

ありがとう！

PS: 誰かが興味を持っている場合、プラグインはSignature Padと呼ばれます。

4

2 に答える 2

2

画像がまったく同じフォルダーにある場合は、画像を挿入できるようです。

Sub insert()
    Dim oPic As Shape
    Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture("image.png", False, True, 0, 0, -1, -1)
End Sub

これは機能しますが、別のフォルダに移動する方法を知っている人がいたら教えてください。folder/image.pngまたはファイルパスとして試し/folder/image.pngても機能しません。

于 2013-04-02T15:09:09.483 に答える
1

まったく同じフォルダーにある必要はありませんが、Mac スタイルのパスを使用する必要があります。

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

activeSlide.Shapes.AddPicture(imagePath, False, True, 10, 10)

それが役立つことを願っています。

于 2014-05-01T08:08:38.520 に答える