プログラミング

プログラミングに関するフォーラムです。VBAは除きます。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : その他)
Powerpointに貼ったjpegファイルのプロパティを変更したい。VBScriptに詳しい方、教えてください!
投稿日時: 20/07/17 13:22:50
投稿者: gorby

VBScriptに関する質問です。
WinActorというRPAツールで、某サイトで作成したグラフを、PowerpointファイルにCtrl+Vで貼り付けました。
 
その後、Powerpointに貼ったグラフ(jpegファイル)のプロパティを変更して、jpegファイルのサイズや位置を変更したいのですが、VBScriptで記述するとどうなりますでしょうか?(VBScriptで記述すると、自作のユーザライブラリとして、WinActorの中で使えます)
 
具体的に、変更したいのは、
 
サイズ−−−>高さ、幅、高さの倍率、幅の倍率
位置−−−>横位置、縦位置
 
です。
 
サンプルコードを教えていただけると大変助かります。
 
何卒、よろしくお願いします。

回答
投稿日時: 20/07/17 14:36:01
投稿者: Suzu

引用:
Powerpointに貼ったグラフ(jpegファイル)のプロパティを変更して、jpegファイルのサイズや位置を変更したいのですが、VBScriptで記述するとどうなりますでしょうか?(VBScriptで記述すると、自作のユーザライブラリとして、WinActorの中で使えます)
 
具体的に、変更したいのは、
 
サイズ−−−>高さ、幅、高さの倍率、幅の倍率
位置−−−>横位置、縦位置
 
です。

 
画像の高さ/幅 は VBScript と言うのは 判ります。
   (VBS 画像 でWEB検索すれば、サンプルも沢山あります)
 
倍率と位置 って、画像側の話ではないですよね? Power Point 側の話ですよね?
 
RAP側で PowerPoint側の 画像サイズや、貼付位置 を制御するために、VBS を使用するのですか?
 
簡単に「ライブラリとして使えると」仰っていますが、引数をどう渡すかとか取り決めがありますよね?
確認されていますか?
 
貼付後に、PowerPoint側のマクロで サイズも位置も処理してはいかがですか?

投稿日時: 20/07/17 14:45:06
投稿者: gorby

 
>倍率と位置 って、画像側の話ではないですよね? Power Point 側の話ですよね?
  
画像の話です。画像のプロパティにありました。位置はスライド左隅からのcmで表すようです。
 
>簡単に「ライブラリとして使えると」仰っていますが、引数をどう渡すかとか取り決めがありますよね?
確認されていますか?
 
確認済みです。VBScriptで経験があります。
 
>PowerPoint側のマクロで サイズも位置も処理してはいかがですか?
 
VBScriptの方が、WinActorで作成しやすいのですが、マクロだとコードはどうなりますでしょうか?
マクロはあまり詳しくないのでサンプルコードを教えてください。

回答
投稿日時: 20/07/17 16:55:02
投稿者: Suzu

引用:
>倍率と位置 って、画像側の話ではないですよね? Power Point 側の話ですよね?
  
画像の話です。画像のプロパティにありました。位置はスライド左隅からのcmで表すようです。

 
jpeg に 「cm」という単位は無いですよね?
エクスプローラー上で、 拡張子jepg のファイルを右クリックし
プロパティー 詳細タブの 幅/高 の ○○ピクセル
というのが、画像ファイル 自体の大きさを表します。
 
 
「cm」は あくまで「PowerPoint」上の オブジェクト としての サイズです。
 
 
引用:
>簡単に「ライブラリとして使えると」仰っていますが、引数をどう渡すかとか取り決めがありますよね?
確認されていますか?
 
確認済みです。VBScriptで経験があります。

 
いえ・・私は、それらを何も知りません
それで、サンプルを教えてくれといわれても、、
 
 
VBS で プレゼンテーションファイルを開き、1個目のShapeオブジェクトのサイズを変更します
 
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
 
引数等何もわからないので、それはご自身で改造ください。
 
 
※個人的は、RAPがそんなライブラリ実装だったら時間がかかってしょうがないと思います。
  あくまで、JPEGを取り込む際に、解像度を下げ、サイズを小さくして取り込む方が
  はるかに効率的ですから。

投稿日時: 20/07/18 10:57:43
投稿者: gorby

[quote="Suzu"]

引用:
>倍率と位置 って、画像側の話ではないですよね? Power Point 側の話ですよね?
  
画像の話です。画像のプロパティにありました。位置はスライド左隅からのcmで表すようです。

 
jpeg に 「cm」という単位は無いですよね?
エクスプローラー上で、 拡張子jepg のファイルを右クリックし
プロパティー 詳細タブの 幅/高 の ○○ピクセル
というのが、画像ファイル 自体の大きさを表します。
 
 
「cm」は あくまで「PowerPoint」上の オブジェクト としての サイズです。
/quote]
 
 
 
>「cm」は あくまで「PowerPoint」上の オブジェクト としての サイズです。
ややこしいですね。
 
画像を右クリックして、図形の書式設定ーサイズ、位置で
位置の中にスライドの左上隅からのcm指定項目が出てきます。
画像のプロパティで設定できないのであれば、これをPowerpointマクロで設定する方法を教えてください。
 

回答
投稿日時: 20/07/20 14:38:21
投稿者: Suzu

欲しているのは、そのまま動くコードですか?
 
サンプルとの事ですので、PowerPoint をオートメーションで動かすサンプルは提示しています。
 
どうして、別に質問をする必要があるのですか?
https://www.moug.net/faq/viewtopic.php?t=79656
 
 
VBSでの経験がおありとの事ですが、結局、何をどうしたいの?
   https://www.moug.net/faq/viewtopic.php?t=79656
 
  いつの間にか 解像度も増えている
 (水平方向の解像度 / 垂直方向の解像度 / ビットの深さは
   Officeに取り込み、保存したりすれば固定されてしまうので 最終的に 取り込むのであれば
   画像の段階で、設定を変える必要性に疑問がある)
 
ご自分で調べたり、考える気が無いようにみえる
 
gorby さん は 他にサンプルを乗せて 当方では役に立てないと判断された様ですので
回答はここまでとさせていただきます。

投稿日時: 20/07/21 02:54:27
投稿者: gorby

Suzu さんの引用:
欲しているのは、そのまま動くコードですか?
 
サンプルとの事ですので、PowerPoint をオートメーションで動かすサンプルは提示しています。
 
どうして、別に質問をする必要があるのですか?
https://www.moug.net/faq/viewtopic.php?t=79656
 
 
VBSでの経験がおありとの事ですが、結局、何をどうしたいの?
   https://www.moug.net/faq/viewtopic.php?t=79656
 
  いつの間にか 解像度も増えている
 (水平方向の解像度 / 垂直方向の解像度 / ビットの深さは
   Officeに取り込み、保存したりすれば固定されてしまうので 最終的に 取り込むのであれば
   画像の段階で、設定を変える必要性に疑問がある)
 
ご自分で調べたり、考える気が無いようにみえる
 
gorby さん は 他にサンプルを乗せて 当方では役に立てないと判断された様ですので
回答はここまでとさせていただきます。

 
 
どうして、別に質問をする必要があるのですか?
https://www.moug.net/faq/viewtopic.php?t=79656
 
自分が期待する期日までに回答が得られる保証がない場合、複数の人に質問することはいけないことでしょうか?質問者の自由ではないでしょうか?ご理解をお願いします。
 
まだ回答をいただいていない項目が1点ありますので、もしご存じであればこれだけは教えてください。
下記は画像のプロパティでは設定できないようですが、マクロでどう書くのでしょうか?
 
画像を右クリックして
 
図の書式設定
位置
横位置  cm  始点 左上隅
縦位置  cm  始点 左上隅
 

トピックに返信