次の方法で共有

このプレゼンテーションに関連付けられた Visual Basic for Applications コードはコンパイルできません。

Anonymous
2020-04-17T15:17:21+00:00

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 365 と Office | PowerPoint | 家庭向け | Windows
Microsoft 365 と Office | PowerPoint | 家庭向け | Windows

プレゼンテーションを作成し、マルチメディア オブジェクトやテキストによる特殊効果などのグラフィック効果を追加するためのツールを提供する Microsoft プレゼンテーション グラフィック製品のファミリ。

ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント コメントはありません

質問作成者が受け入れた回答

Anonymous
2020-04-17T15:50:32+00:00

VBA専用のフォーラムがあるため、下記へ投稿してみてください。

https://social.msdn.microsoft.com/Forums/ja-JP/...

この回答は役に立ちましたか?

1 人がこの回答が役に立ったと思いました。
0 件のコメント コメントはありません

0 件の追加の回答

並べ替え方法: 最も役に立つ