全て
| カテゴリ未分類
通常
| 数学
| 投資
| 副業
| 転職・就職
| ブログ
| 株Stock
| VBA
| SharePoint
| REST API
| RenderListDataAsStream
| PowerAutomateDesktop
| Graph API
| PowerApps
| PowerAutomate
| PowerFx
| OfficeScriptオフィススクリプト
| PowerAutomate日時Excel日時相互関係
| PowerShell
| Dataverse
| UiPath
| OneDrive
| LINQ
| VB.NET
| C#.NET
| WPFC#.NET
| Git
2024.02.10
カテゴリ： VBA
PowerPoint に画像を貼り付けるためには、Excel VBA を使用して PowerPoint.Application オブジェクトを作成し、その中で画像を追加する必要があります。以下に、Excel VBA で PowerPoint に画像を貼り付ける方法を示します。
まず、Microsoft PowerPoint ライブラリを参照に追加する必要があります。これにより、PowerPoint スライドを操作するための機能が利用できるようになります。
Excel を開きます。
[Alt] + [F11] キーを押して Visual Basic for Applications (VBA) エディタを開きます。
[ツール] メニューから [参照設定] を選択します。
リストから "Microsoft PowerPoint xx.x Object Library" を選択し、[OK] をクリックして追加します。
次に、以下のようなコードを Excel VBA プロジェクトに追加します。
vba
Copy code
Sub PasteImageToPowerPoint()
Dim pptApp As Object ' PowerPoint.Application
Dim pptPres As Object ' PowerPoint.Presentation
Dim pptSlide As Object ' PowerPoint.Slide
Dim imagePath As String
' PowerPoint アプリケーションオブジェクトを作成
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True ' PowerPoint を表示する場合は True に設定
' 新しいプレゼンテーションを作成
Set pptPres = pptApp.Presentations.Add
' 新しいスライドを追加
Set pptSlide = pptPres.Slides.Add(1, 1) ' 第一引数はスライドの追加位置、第二引数はスライドのテンプレート
' 貼り付ける画像のパスを設定（例: "C:\Path\To\Your\Image.jpg"）
imagePath = "C:\Path\To\Your\Image.jpg"
' 画像をスライドに貼り付け
pptSlide.Shapes.AddPicture imagePath, msoFalse, msoTrue, 100, 100 ' 100, 100 は画像の貼り付け位置
' 必要に応じて、画像のサイズや位置を調整
' PowerPoint アプリケーションを終了
pptApp.Quit
' オブジェクトの解放
Set pptSlide = Nothing
Set pptPres = Nothing
Set pptApp = Nothing
End Sub
このコードでは、PowerPoint.Application オブジェクトを作成し、その中で新しいプレゼンテーションとスライドを追加します。次に、指定したパスから画像を読み込んで、スライドに貼り付けます。最後に、PowerPoint アプリケーションを終了し、作成したオブジェクトを解放します。
画像の貼り付け位置やサイズを調整するには、Shapes.AddPicture メソッドの引数で位置とサイズを調整してください。
お気に入りの記事を「いいね！」で応援しよう
Last updated
2024.02.10 06:22:36
[VBA] カテゴリの最新記事
-
VBAでエラー発生時にリトライするコード 2024.02.22
-
ODBCでDataverseに接続する方法 2024.02.19
-
ExcelVBAでPowerPointの画像を張り付ける… 2024.02.10
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
