Índice

Solución 15.7 Crear un menú para los objetos vinculados o incrustados

Código para mostrar el formulario:

Sub Menu()  
  frmMenu.Show  
End Sub

Código de los eventos Clic de las etiquetas del UserForm frmMenu:

Private Sub lblDanzaFuego_Click()  
  Dim strReferencia As String  
  On Error GoTo SalidaError 
  strReferencia = Worksheets(1).Range("J3")  
  ActiveSheet.Shapes(strReferencia).Select  
  Selection.Verb   ...