EXCEL VBAにて、PowerPointのObjectを作って、エクセルからプレゼンテーションの作成をしています。
一旦、パワーポイントのウィンドウが選択された後、Excelのウィンドウを選択する方法がわかりません。 エクセルのデータを読み込んで、パワーポイントに貼り付ける分には、別にエクセルのウィンドウを選択する必要はないので、大きな問題ではありませんが、それでも、エクセルにて、msgboxを実行しようとすると、Excelウィンドウが選択されていないために、フラッシュして、ユーザーに「エクセルを選択しろ」と警告してきます。 この不都合を解消したいのです。
以下のサンプルにて、本当は、(1) の位置にmsgboxを入れたいのですが、上記のことがあるので、(2)の位置にmsgboxを入れて対応しています。
(1)の位置でも、msgboxが素直に表に出てくるように「VBAコードにて、Excelウィンドウを選択する」
方法をよろしくお願い致します。
Sub test1()
Dim ppApp As New PowerPoint.Application
Dim PPfile As PowerPoint.Presentation
With ppApp
.Visible = msoTrue
.Windows.Application.Left = 600
.Windows.Application.Top = 0
.Windows.Application.Width = 350
.Windows.Application.Height = 350
Set PPfile = .Presentations.Add
With PPfile
n = .Slides.Count
With .Slides.Add(n + 1, ppLayoutTitleOnly)
.Select
End With
End With
End With
PPfile.SaveAs Filename:=ThisWorkbook.Path & "\" & "mySample.ppt"
PPfile.Save
PPfile.Close
ppApp.Quit
' MsgBox "プレゼンテーション作成終了” '------(1)
Set ppApp = Nothing
Set PPfile = Nothing
MsgBox "プレゼンテーション作成終了” '------(2)
End Sub
↧