[Pegos]

Mirabelki i Mireczki mam problem, Za każdym razem jak gasze excela to "gasnie" mi wstążka EPM i jak chce wykonać pewne czynności to muszę wejść w opcje i dalej i dalej i w COM Add-ins wybrać odpowiedni kwadracik to pomyślałem że w swym lenistwie zrobię excela który przy otwarciu dodaje zakładkę no ale #!$%@? nie działa.
Wywala [Run time error]

Makro sprawdza listę pozycji w COMAdd-ins i gdy się zgadza nazwa tej o którą mi chodzi to ją wybiera do 'odpalenia'. W tym momencie ma numer 5 i czy zrobię przez IF czy na sztywno numer to wywala taki sam błąd- dodałem szukanie po nazwie aby w przyszłości gdy dojdą inne pozycje i zmieni się numer żeby i tak zadziałało.
Np dla wstążki 'Pover Pivot' działa elegancko, a dla tej o która mi chodzi nie:/
Może ktoś z was wie jak to obejść?

Public Sub macrodds()
Dim oAddin As AddIn
Dim oCOMAddin As COMAddIn
Dim icount As Integer
Dim zlo As String
For icount = 1 To Application.COMAddIns.Count
Set oCOMAddin = Application.COMAddIns(icount)
zlo = Application.COMAddIns(icount).Description
If Application.COMAddIns(icount).Description = "EPM add-in for Microsoft Office" Then
Application.COMAddIns(icount).Connect = True
Else
End If
Next icount
End Sub

#excel #vba #visualbasic

[suxone]

@Pegos: zapoznaj się z Custom UI Editor