PowerPoint Addin Fehlermeldung: Assoziierter PowerPoint Application Code kann von PowerPivot nicht kompiliert werden

Date 22.02.2019

Der Visual Basic für Application Code, der mit dieser Präsentation assoziiert ist, kann von PowerPivot nicht kompiliert werden

Vorkommmen:

Folgender Fehlercode erscheint, wenn man versucht ein PowerPoint Addin zu erstellen, in dem man eine PowerPoint Datei mit Makro PowerPoint.pptm zu speichern unter der Addin-Version Addin.ppam

Die Meldung erscheint wenn man PowerPoint mit Makro als ein Power Point Addin speichern will

Lösung:

Wenn man ein Addin erstellen möchte, dann benötigt man einem Makro-Code mit einer Auto_open() Funktion

Notwendiger Code in vba

In einer vba-Datei muss die Sub-Routinge Auto_Open() vorhanden sein

Sub Auto_Open()

Option Explicit

Option Compare Text

'*Installation Addin->Menubar

Const °AddinName As String = "Pfade_anpassen"

Sub Auto_Open()

'----------------< Auto_Open() >----------------

'--< Install_MenuBar >--

Dim addin_Commandbar As commandbar

Set addin_Commandbar = find_Commandbar(°AddinName)

'< check >

If Not addin_Commandbar Is Nothing Then

addin_Commandbar.Visible = True

Exit Sub

End If

'</ check >

On Error GoTo 0

'--< Install_MenuBar >--

'< create new >

Set addin_Commandbar = CommandBars.Add(Name:=°AddinName, Position:=msoBarFloating, Temporary:=False)

'</ create new >

'----< Menue_Punkte_einfuegen >----

Dim control_Element As CommandBarButton

'------------< 1 >------------

Set control_Element = addin_Commandbar.Controls.Add

control_Element.Caption = "Pfade austauschen"

control_Element.OnAction = "fx_Pfade_austauschen"

control_Element.FaceId = 893

control_Element.Style = msoButtonIconAndCaption

control_Element.BeginGroup = True

'------------</ 1 >------------

'----</ Menue_Punkte_einfuegen >----

'< anzeigen >

addin_Commandbar.Visible = True

'</ anzeigen >

'----------------</ Auto_Open() >----------------

End Sub

Sub Auto_Close()

'----------------< Uninstall in PowerPoint ??() >---------------

'--< find_commandbar >--

Dim addin_Commandbar As commandbar

Set addin_Commandbar = find_Commandbar(°AddinName)

'< check >

If Err.Number <> 0 Then Exit Sub

If addin_Commandbar Is Nothing Then Exit Sub

'</ check >

'--</ find_commandbar >--

addin_Commandbar.Delete

'----------------</ Uninstall in PowerPoint ??() >---------------

End Sub

'=====================< Helper-Functions >==============

Public Function find_Commandbar(ByVal sName As String) As commandbar

'-----------< find_Commandbar() >--------------

Dim search_Commandbar As commandbar

'----< @Loop: all_Commandbars >----

For Each search_Commandbar In Application.CommandBars

If search_Commandbar.Name = sName Then

'< match_return >

Set find_Commandbar = search_Commandbar

Exit Function 'not necessary

'</ match_return >

End If

'----</ @Loop: all_Commandbars >----

'< nomatch >

Set find_Commandbar = Nothing

'</ nomatch >

'-----------</ find_Commandbar() >--------------

End Function

'=====================</ Helper-Functions >==============