Problema assegnazione Macro ad una forma ( drawing object ) da codice VBA

Question

Buongiorno a tutti e auguri in ritardo 

ho un problema bizzarro 

ho costruito una barra menu con una serie di forme rettangolari 

alle quali assegno delle macro da codice in funzione di determinate condizioni 

benché le forme abbiano apparentemente le stesse proprietà impostate 

per alcune l'assegnazione va a buon fine per altre on funziona 

e al posto della macro richiesta ritrovo nomedeltasto_click 

ho provato anche ad eliminarla e ricrearla ma stranamente non riesco a risolvere . 

Grazie per l'attenzione

Answer 1

ti ringrazio per il suggerimento... ma nel preparare il file da postare ... ho individuato il problema 

.. praticamente creando un workbook esterno con il metodo

workbook.add

e ripulendolo dai  link esterni  ..  con il seguente metodo

myLinks = myWbook.LinkSources(Type:=xlLinkTypeExcelLinks)

On Error Resume Next

If IsArray(myLinks) Then

For iCtr = LBound(myLinks) To UBound(myLinks)

myWbook.BreakLink Name:=myLinks(iCtr), Type:=xlLinkTypeExcelLinks

Next iCtr

End If

tutte le macro assegnate alle shape presenti vengono eliminate

( non so se questo sia un problema di excel o se debba esattamente funzionare cosi )

ho risolto .. riassegnando le macro ad ogni shape con il metodo ( .onaction)

' Clean PriceList Button  Bar

For i = 1 To 8

With newBook.Sheets("PriceList").DrawingObjects("BTN_PriceList_" & i)

Select Case i

Case 2

.OnAction = "WorkSheet_Save"

Case 3

.Caption = "Stampa..."

.OnAction = "Preview_Invoice_FromDoc"

Case 4

.OnAction = "WorkSheet_Close"

Case 8

' do nothing

.Caption = ""

.OnAction = "NothingToDo"

End Select

End With

next i

Answer 2

Buongiorno a tutti e auguri in ritardo 

ho un problema bizzarro 

ho costruito una barra menu con una serie di forme rettangolari 

alle quali assegno delle macro da codice in funzione di determinate condizioni 

<cut>

Grazie per l'attenzione

Difficile rispondere senza vedere il file. Puoi, per favore, condividerlo su Skydrive?