PowerPointで作成した図形を画像として保存したいけれど、どうすればよいのか分からない…そんなお悩みをお持ちの方へ、初心者でも安心して実践できる方法をご紹介します。VBA（Visual Basic for Applications）を使って、図形をPNGやJPEGなどの画像ファイルとして保存する手順を、わかりやすく解説します。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
目次
PowerPointのイメージ
PowerPoint VBAとは？
PowerPoint VBAは、PowerPointに組み込まれているプログラミング言語で、プレゼンテーションの自動化やカスタマイズを行うことができます。例えば、複数のスライドに同じ図形を追加したり、図形を画像として保存したりする操作を、自動で実行することが可能です。
図形を画像として保存する基本的な方法
図形を画像として保存するには、VBAの`Export`メソッドを使用します。このメソッドを使うことで、指定した図形をPNGやJPEGなどの画像形式で保存できます。
以下は、選択した図形をPNG形式で保存するVBAコードの例です
vba
Sub ExportShapeAsImage()
Dim shp As Shape
Set shp = ActiveWindow.Selection.ShapeRange(1)
shp.Export "C:\保存先\図形画像.png", ppShapeFormatPNG
End Sub
このコードを実行すると、選択した図形が指定した場所にPNG形式で保存されます。
画像の解像度を調整する方法
デフォルトでは、保存される画像の解像度はスライドの設定に基づいています。しかし、より高解像度の画像が必要な場合は、`ScaleWidth`と`ScaleHeight`の引数を指定することで、画像のサイズを調整できます。
以下は、画像の解像度を調整するVBAコードの例です
vba
Sub ExportShapeWithResolution()
Dim shp As Shape
Set shp = ActiveWindow.Selection.ShapeRange(1)
shp.Export "C:\保存先\高解像度画像.png", ppShapeFormatPNG, 1920, 1080, ppScaleToFit
End Sub
このコードを実行すると、指定した解像度で画像が保存されます。
複数の図形を一括で画像として保存する方法
複数の図形を一括で画像として保存するには、ループを使用して各図形を順番に処理します。以下は、スライド上のすべての図形をPNG形式で保存するVBAコードの例です
vba
Sub ExportAllShapes()
Dim sld As Slide
Dim shp As Shape
Dim i As Integer
i = 1
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoPicture Then
shp.Export "C:\保存先\図形_" & i & ".png", ppShapeFormatPNG
i = i + 1
End If
Next shp
Next sld
End Sub
このコードを実行すると、プレゼンテーション内のすべての図形が順番にPNG形式で保存されます。
よくある質問
Q1: VBAを使うにはどうすればよいですか？
PowerPointを開き、「Alt」キーと「F11」キーを同時に押すと、VBAの編集画面が開きます。そこで、新しいモジュールを挿入し、上記のコードを貼り付けて実行できます。
Q2: 画像の保存先を指定するにはどうすればよいですか？
コード内の`”C:\保存先\図形画像.png”`の部分を、保存したいフォルダのパスとファイル名に変更してください。
Q3: 画像の形式を変更するにはどうすればよいですか？
`ppShapeFormatPNG`の部分を、保存したい画像形式に応じて以下のように変更します
- PNG形式ppShapeFormatPNG
- JPEG形式ppShapeFormatJPG
- GIF形式ppShapeFormatGIF
- EMF形式ppShapeFormatEMF
- WMF形式ppShapeFormatWMF
まとめ
PowerPoint VBAを使うことで、手作業では難しい図形の一括保存や高解像度での保存が簡単に実現できます。初心者の方でも、上記のコードを参考にすることで、効率的に作業を進めることができます。
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント