• ベストアンサー

PowerPoint VBA 画像のサイズ

こんにちは。 PowerPoint2007 VBAで今選択している画像のサイズを 指定のサイズに変える方法を教えていただけないでしょうか。 出来ればコードも書いていただけると嬉しいです MSDN等調べれば出てくるかとも思ったのですが、 VBA自体をExcelで少し触った程度なので分かりませんでした。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • DreamyCat
  • ベストアンサー率56% (295/524)
回答No.1

1個づつでもよければ下記でできます。 WindowとslideがわかればあとはExcelと同じです。 Sub test() Dim w As Single Dim h As Single w = 200 h = 200 With ActiveWindow.Selection With .SlideRange.Shapes(.ShapeRange.Name) .Width = w .Height = h End With End With End Sub

NarukamiYu
質問者

お礼

お礼が大変遅くなり申し訳ありません。 教えていただいた方法で実装することができました。 ありがとうございました。

関連するQ&A

  • 【PowerPoint】VBAで画像サイズ取得

    画像のパス(画像ファイルの場所)の書いてあるテキストファイルを読み込んで、そのパスの画像データをスライドに表示させるプログラムを、VBA(PowerPoint)で書いております。 その際に、画像のパスから画像自体を読み込んで、その画像のサイズ(HとW)も知りたいのですが、やり方がわからずに困っています。 どなたかやり方をご存知の方がいらっしゃいましたら、ご教授頂けませんでしょうか。 何卒宜しくお願いいたします。

  • powerpoint 2007での画像の透過について

    powerpoint 2007での画像の透過について こんにちは、powerpoint 2007での画像の透過の仕方を教えてください。 図ツール>書式>色の変更>透明色を指定 では1色しか変更できないので できれば選択した図全体を半透明にする方法を探しています。 色調や淡色の種類指定したり、明るさ指定したりするしかないでしょうか? よろしくお願いします。

  • PowerPoint2002にて画像の貼り付けのサイズについて

    PowerPoint2002にて、デジカメで取った画像をコピペで貼り付けているのですが、貼り付けられるサイズが最初は大きく、わざわざサイズを指定(例えば縦10cm横8cmという具合に)し直すのが面倒なのです。 これを貼り付けるサイズを一定に保ちたいのですが、何か方法はありますか? また、デジカメでの縦取の画像と横取の画像がありますが、できればこれも縦取のものは縦10cm横8cm、横取の物は縦8cm横10cmといった具合に自動で判別してくれればなおさらベストなのですが。 わかることだけでもいいので教えてください。

  • PowerPointのVBA

    PowerPointのVBA PowerPointのファイルが、300ページを超えそうな状況で、 簡単に目次を作りたいです。 具体的には、各ページのタイトルを取得したいです。 300ページを超えそうなので、各ページからコピペをするのが大変で困っています。。。 Excelで簡単なVBAを組んだことあるのですが、 page番号.タイトルobject.titleName みたいなのを、ループで回して取れないでしょうか?

  • PowerPointのフォントサイズ

    PowerPoint2003を使って、プレゼン用のスライドなどではなく、業務マニュアルを作ろうと思っています。 (Wordで作ろうと思ったのですが、図がかなり多く、Wordでは図が多くなると先に挿入した画像の位置が変わってしまうことがよくあるので、PowerPointで作ることになりました) マニュアルを作成するには、PowerPointのフォントが初期設定では大きすぎて、毎回手作業でフォントサイズを設定しています。 (PowerPointでは通常タイトル文字が44ポイントくらいになっていますが、私の用途では、タイトル文字=14ポイント、本文=11~12ポイント程度にしたい) フォントサイズを一括で設定する方法はないでしょうか。 (PowerPoint自体は他にプレゼンに使用することもあるので、マニュアルを作るファイルにだけ設定できればOKです)

  • エクセルに張り付けている画像をVBAで指定の範囲を削除し、画像サイズを

    エクセルに張り付けている画像をVBAで指定の範囲を削除し、画像サイズを変更させることは可能でしょうか?似たように情報は見ましたが、どれも上手くいかずに困っています。具体的には、縦1000×横1200の画像があります。(上50、下80、左150、右200)を削除し、縦870×横850の画像にし、さらに90%にサイズをトリミングし、縦435×横425としたいのです。これをVBAで一発で行う方法があれば教えて下さい。また、同じシート、異なるシートに複数の画像があった場合、全てを同時にできましたらなお良いです。以上、宜しくお願いいたします。

  • 【PowerPoint VBAの高速化】

    【PowerPoint VBAの高速化】 OfficeVersion:2007 OS:Win XP SP3 Excel(VBA)側でScreenUpdating=False⇒CreateObjectを使ってPowerPoint側にデータを出力 しています。 しかし、PowerPoint側の編集途中が見えており、そのせいか、処理がかなり遅いです。 最小化しても効果はありません。 ちなみに、2003ではScreenUpdating=Falseが効いているのかどうかわかりませんが、 編集途中は見えず(速くて見えてないだけかも)にPowerPointの出力結果が表示されます。 実行速度も比較にならないほど速いです。 Excel(VBA)ではScreenUpdating=False代わるものが、PowerPoint(VBA)にあるのかどうか 何方かご存じありませんか。

  • PowerPointのVBA サイトや本

    PowerPointのVBAについて詳しく載ってるサイトや本はありますか? VBA辞典っぽい本は売ってますが、アクセスかエクセルしか見たことがありません。

  • ExcelとPowerPointをVBAで連携させる方法

    おけましておめでとうございます。 本年もよろしくお願いします。 で、本題ですが、 (Win95でExcel2000とPowerPoint2000を使用) EXCELのデータベースの表を順々にPowerPointのテキストボックスへ コピーして印刷するためにVBAを作成したいと思ってます。 (印刷形式がPowerPointのため) ここには作成できるんですが、両者のVBAをどのように 連携させるかわかりません。 よろしくご教授ください。 また、PowerPointのVBAでマクロの記録を使わず、オブジェクト名 (("Text Box 1")とか)を知る方法もあわせてよろしくご教授ください。

  • Powerpointでの画像の大きさについて

    Powerpoint初心者です。 この度Powerpointでプレゼンをすることになりました。 50枚程度の写真、エクセルグラフ等です。 画像ファイル(写真)の一枚の大きさはどれくらいがよいのでしょうか?(何Mb?何Kb?) また、昔の写真をスキャナーで読んでスライド上映するのですが、カラー写真でどれくらいの解像度で読込めば いいのでしょうか?(何dpi?) 宜しくお願いします。

専門家に質問してみよう