Microsoft 365 と Office | PowerPoint | 家庭向け | Windows
プレゼンテーションを作成し、マルチメディア オブジェクトやテキストによる特殊効果などのグラフィック効果を追加するためのツールを提供する Microsoft プレゼンテーション グラフィック製品のファミリ。
このブラウザーはサポートされなくなりました。
Microsoft Edge にアップグレードすると、最新の機能、セキュリティ更新プログラム、およびテクニカル サポートを利用できます。
PowerPointでマクロ付きプレゼンテーションファイル(pptm)を、アドインファイル(ppam)に変換しようとした際に、「このプレゼンテーションに関連付けられた Visual Basic for Applications コードはコンパイルできません。」にエラーが発生します。
原因について、ご助言いただけないでしょうか?
対象ソースコード
```
Private Sub FileListBox\_Click()
End Sub
Private Sub UserForm\_Initialize()
Dim imageFileName As String
Dim commonEnv As CommonEnviroment
DimpartEnv AspartEnviroment
Set commonEnv = New CommonEnviroment
SetpartEnv = NewpartEnviroment
imageFileName = Dir(commonEnv.getImageFolderPath & "\" &partEnv.getImageFolderName & "\")
Do While imageFileName <> ""
FileListBox.AddItem imageFileName
imageFileName = Dir
Loop
End Sub
Private Sub InsertButton\_Click()
Call insertAzureIcon(FileListBox.Text)
End Sub
Private Sub SearchButton\_Click()
Dim searchName As String
Dim imageFileName As String
Dim commonEnv As CommonEnviroment
DimpartEnv AspartEnviroment
Set commonEnv = New CommonEnviroment
SetpartEnv = NewpartEnviroment
imageFileName = Dir(commonEnv.getImageFolderPath & "\" &partEnv.getImageFolderName & "\")
searchName = SearchTextBox.Text
FileListBox.Clear
Do While imageFileName <> ""
If UCase(imageFileName) Like "\*" & UCase(searchName) & "\*" Then
FileListBox.AddItem imageFileName
End If
imageFileName = Dir
Loop
End Sub
プレゼンテーションを作成し、マルチメディア オブジェクトやテキストによる特殊効果などのグラフィック効果を追加するためのツールを提供する Microsoft プレゼンテーション グラフィック製品のファミリ。
ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。
質問作成者が受け入れた回答
VBA専用のフォーラムがあるため、下記へ投稿してみてください。