0

キーボード操作のエミュレーションで、某サイトで作成したグラフを、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>ーーーー

gorby5775 質問の編集
回答とコメントは、会員登録(無料)で閲覧できるようになります。