Para poder agregar íconos que permitan asignarles macros, se necesita saber cual es el nombre específico de cada ícono que compone las distintas barras de menús ribbon de Excel.
Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.
Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.
Desde el final se puede descargar el archivo ZIP que contiene un archivo de Excel y otro de Word, desde el archivo de Excel se puede abrir el archivo de Word, es un archivo que contiene todos los nombre e íconos que contiene Excel, se verá como la imagen siguiente
Quizá sea de utilidad también
Como enviar mail desde Excel adjuntando PDF
Como enviar mail con archivo Excel y PDF mediante Outlook con Excel
Formulario de VBA para insertar datos
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Es preciso mencionar que el archivo de Word está un poco modificado ya que al abrir el fichero se podrá observar en el menú archivo dos menús agregados uno se llama «ImageMso 0» y «ImageMso 1» haciendo click en dichos menús se pueden ver los íconos que componen Excel.
Código que se inserta en un módulo
‘Si es de 64 bits
Private Declare PtrSafe Function ShellExecute Lib «shell32.dll» Alias «ShellExecuteA» ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
‘Si es de 32 bits
Private Declare Function ShellExecute Lib «shell32.dll» Alias «ShellExecuteA» ( _
ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Sub Muestra(control As IRibbonControl)
MsgBox «suscribe a https://youtube.com/programarexcel» & Chr(10) & Chr(10) & «visita https://macrosenexcel.com»
End Sub
Sub ejecuta()
ruta = ActiveWorkbook.Path & «Office2010IconsGallery.docx»
lngErr = ShellExecute(0, «OPEN», ruta, «», «», 0)
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends