Estilos xp en excel

30/04/2008 - 15:20 por Andrés | Informe spam
Hola a todos, quisiera que me explicaran como es posible que en la
office 2007 todavía esta el aspecto win95 en los botones, hay manera
de mejorar el aspecto desde vba para office 2003 – 2007.

No entiendo porque este código, inserta un Listbox con aspecto xp y
cuando se inserta un botón lo hace con aspecto win95


Sub NuevoListBox()

Set MyListBox = Worksheets(1).Shapes.AddFormControl(xlListBox,
Left:, Top:, Height:0, Width:0)
MyListBox.ControlFormat.MultiSelect = xlSimple

End Sub

Sub NuevoBoton()

Set MyBoton = Worksheets(1).Shapes.AddFormControl(xlButtonControl,
Left:0, Top:, Height: , Width:p)

End Sub

Gracias
 

Leer las respuestas

#1 Héctor Miguel
30/04/2008 - 16:21 | Informe spam
hola, Andrés !

... quisiera que me explicaran como es posible que en la office 2007 todavia esta el aspecto win95 en los botones
hay manera de mejorar el aspecto desde vba para office 2003 - 2007.
No entiendo porque este codigo, inserta un Listbox con aspecto xp y cuando se inserta un boton lo hace con aspecto win95



tus codigos estan insertando controles de la barra de herramientas "formularios" y (hasta donde se)...
- este tipo de controles son "nativos" de las aplicaciones (no requieren de librerias de objetos adicionales)
(checa los nombres: xl<tipo de control> que inician con la "constante" XL -de excel-)
- tampoco su aspecto tiene que ver con "bajo que version de windows" se esta ejecutando la aplicacion (por lo cual)
- tampoco tienen caracteristicas (amigablemente) personalizables como los de la barra de herramientas "cuadro de controles"

saludos,
hector.

__ los codigos expuestos __
Sub NuevoListBox()
Set MyListBox = Worksheets(1).Shapes.AddFormControl(xlListBox, Left:, Top:, Height:0, Width:0)
MyListBox.ControlFormat.MultiSelect = xlSimple
End Sub

Sub NuevoBoton()
Set MyBoton = Worksheets(1).Shapes.AddFormControl(xlButtonControl, Left:0, Top:, Height: , Width:p)
End Sub

Preguntas similares