Interfaz de Excel

hola, Carlos !

Mostrar la cita

... cambiar la apariencia... de la ventana de Excel para un... sistema
desarrollado con VBA?.
... logo y nombre de aplicacion en la barra de titulo
... que... muestre por ejemplo como icono una estrella y como nombre de
aplicacion StarSystem

suponiendo que ya tienes un archivo del cual se puede extraer el icono con
la estrella...
copia las lineas al final de este mensaje ;)

saludos,
hector.

en el modulo de codigo del libro ThisWorkbook] ==> Private Declare Function BuscaVentana _
Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Nombre As String) As Long
Private Declare Function SacarIcono _
Lib "Shell32.dll" Alias "ExtractIconA" ( _
ByVal Instala As Long, ByVal ArchivoICO As String, _
ByVal Indice As Long) As Long
Private Declare Function MandaMensaje _
Lib "User32" Alias "SendMessageA" ( _
ByVal Ventana As Long, ByVal Mensaje As Long, _
ByVal ParV As Integer, ByVal ParL As Any) As Long
Private Sub Workbook_Open()
Dim Archivo As String
Archivo = "c:uta y\sub carpetas donde esta\el archivo.ico" ' <= pon
aqui la ruta al archivo con el icono '
CambiarIcono Archivo
Application.Caption = "StarSystem"
End Sub
Private Sub CambiarIcono(Optional ByVal Archivo As String = "")
If Dir(Archivo) = "" Then Exit Sub
Dim Ventana As Long, Icono As Long
Icono = SacarIcono(0, Archivo, 0)
Ventana = BuscaVentana(vbNullString, Application.Caption)
MandaMensaje Ventana, &H80, 0, Icono
MandaMensaje Ventana, &H80, 1, Icono
End Sub