Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0
Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User
Log in Register

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

22.02.2019 (👁6757)

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

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

    Next

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

   

    '< nomatch >

    Set find_Commandbar = Nothing

    '</ nomatch >

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

End Function

 

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