Powerpointに貼ったjpegファイルのプロパティを変更したい。VBScriptかPowerpointマクロに詳しい方、教えてください!
キーボード操作のエミュレーションで、某サイトで作成したグラフを、PowerpointファイルにCtrl+Vで貼り付けました。
その後、Powerpointに貼ったグラフ(jpegファイル)のプロパティを変更して、jpegファイルのサイズや位置を変更したいのですが、VBScriptで記述するとどうなりますでしょうか?
具体的に、変更したいのは、画像の
大きさ
幅
高さ
水平方向の解像度
垂直方向の解像度
ビットの深さ
です。
サンプルコードを教えていただけると大変助かります。
VBScriptで難しい場合は、Powerpointマクロでも構いません。
何卒、よろしくお願いします。
追伸:Powerpointマクロのサンプルコードを下記の通り、入手しました。
以下の3点につき、追加で教えてください。
1.Powerpointファイルが開いている状態で、
Set ppApp = CreateObject("PowerPoint.Application")
しても、エラーになりませんか?
2.Powerpointファイルが開いている状態では、
Set ppPsn = ppApp.Presentations.Open("プレゼンテーションファイルフルパス")
は不要ですよね?
3.画像のプロパティの
水平方向の解像度
垂直方向の解像度
ビットの深さ
指定方法を知りたいが、参考になるWebサイトがあれば教えてください。
ーーー<start of code>ーーーー
Dim ppApp
Dim ppPsn
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = True
Set ppPsn = ppApp.Presentations.Open("プレゼンテーションファイルフルパス")
With ppPsn.Slides(1).Shapes(1)
.Top = 1 / 0.03527778
.Left = 1 / 0.03527778
.LockAspectRatio = True
.Width = 5 / 0.03527778
End With
Set ppPsn = Nothing
Set ppApp = Nothing
ーーー<end of code>ーーーー