Agregar icono a message box

Prueba este codigo:

Private Sub Workbook_Open()
Dim wrnmsg
wrnmsg = MsgBox("Este archivo modifica los siguientes
archivos:" + Chr(13) + "Ppto" + Chr(13) + "Si cuenta con
los permisos requeridos abralos", vbOK +
vbInformation, "AVISO")
If wrnmsg = vbOK Then
Exit Sub
End If
End Sub

Ahora si se puede personalizar los iconos, la verdad hasta
donde se yo no se puede no se si alguien del foro sabes?

Saludos.

Hola a todos

Tengo el siguiente codigo

Private Sub Workbook_Open()
Dim wrnmsg
wrnmsg = MsgBox("Este archivo modifica los siguientes
archivos:" + Chr(13) + "Ppto" + Chr(13) + "Si cuenta con
los permisos requeridos abralos", vbOK)
If wrnmsg = vbOK Then
Exit Sub
End If
End Sub
Necesito saber como y donde le debo agregar comandos para
poder agregar iconos. Además, es posible agregar iconos
personalizados???

Muchas gracias
.

no se pueden modificar los iconos lo que tendria que
haceser es diseñar un formulario que funcione como el
msgbox e incluirle la imagen o icino que desees
atte. nico México

Prueba este codigo:

Private Sub Workbook_Open()
Dim wrnmsg
wrnmsg = MsgBox("Este archivo modifica los siguientes
archivos:" + Chr(13) + "Ppto" + Chr(13) + "Si cuenta con
los permisos requeridos abralos", vbOK +
vbInformation, "AVISO")
If wrnmsg = vbOK Then
Exit Sub
End If
End Sub

Ahora si se puede personalizar los iconos, la verdad

hasta

donde se yo no se puede no se si alguien del foro sabes?

Saludos.

Hola a todos

Tengo el siguiente codigo

Private Sub Workbook_Open()
Dim wrnmsg
wrnmsg = MsgBox("Este archivo modifica los siguientes
archivos:" + Chr(13) + "Ppto" + Chr(13) + "Si cuenta con
los permisos requeridos abralos", vbOK)
If wrnmsg = vbOK Then
Exit Sub
End If
End Sub
Necesito saber como y donde le debo agregar comandos

para

poder agregar iconos. Además, es posible agregar iconos
personalizados???

Muchas gracias
.

.

En este link vas encontrar un add-in que el autor lo llama como un sustituto
de msgbox de excel.

http://www.h3.dion.ne.jp/~sakatsu/ktMsgBox_Series_English.htm

Este add-in te permite usar una funcion ktMsgBox que te permite definir
tipos, tamaño, color y color de letras, ubicacion del msgbox en la pantalla,
cambiar el color de fondo del msgbox, agregar graficos de fondo, agregar un
icono, sonidos, tamaño del msgbox y otras dos o tres cosas mas.

El archivo zip que bajas trae un archivo ktMsgBoxTrial.xls que te permitira
ver lo que te ofrece y como funciona. Ademas este archivo de excel trae un
wizard que te permite definir todos los parametros, copiar el codigo en
memoria para que despues le hagas un paste en tu modulo de vba.

Si quieres probarlo primero tienes que instalar el add-in usando el menu
Herramientas y despues en el editor del vba lo agregas en Herramientas,
Referencias.

Un ejemplo del codigo que te genera el wizard:

Dim rc As Variant
rc = ktMsgBox("Aqui va el mensaje" _
, vbOKOnly, "Este es el Titulo" _
, Top:0, Left:0 _
, IconFile:="C:\WINDOWS\box boat blue.ico" _
, FontName:="ARI" _
, FontSize:=9 _
, BackImage:="C:\MyFiles\logo.jpg" _
, ImageWidth:0 _
, ImageHeight:0)

Saludos,

David Canales


"Charlie" wrote in message
news:236c601c45ea1$f0979cb0$
Hola a todos

Tengo el siguiente codigo

Private Sub Workbook_Open()
Dim wrnmsg
wrnmsg = MsgBox("Este archivo modifica los siguientes
archivos:" + Chr(13) + "Ppto" + Chr(13) + "Si cuenta con
los permisos requeridos abralos", vbOK)
If wrnmsg = vbOK Then
Exit Sub
End If
End Sub
Necesito saber como y donde le debo agregar comandos para
poder agregar iconos. Además, es posible agregar iconos
personalizados???

Muchas gracias