Cabecera, inserción de imagen

Meiri_hache escribió:

Hola,

quería saber si se puede hacer lo siguiente:

Tengo un documento con una cabecera donde van datos personales. Hay un
cuadro de texto donde se tiene que insertar una imagen. ¿Es posible que al
pulsar se abra el cuadro de diálogo para seleccionar el archivo del disco
duro?

No se si puede hacerse con una macro o simplemente no es posible programarlo.

Gracias de antemano. Saludos.

Hola Meiri_hache :-)

Puedes hacer lo siguiente:

Te vas a menu Ver > Barra de herramientas > cuadro de controles y de
ahi sacar dos botones CommandButton1 y CommandButton2 (cada boton lo
insertas al lado de cada Cuadro de texto si tienes mas cuadros de textos
un boton para cada uno) :

y le asignas estos codigos que para cuadro de texto se te abrira tu
carpeta de Mis imagenes y en donde podras seleccionar tambien por el
disco duro :-)


Private Sub CommandButton1_Click()

Set myShape = ActiveDocument.Shapes(1)
myShape.Select

Application.Dialogs(wdDialogInsertPicture).Show

End Sub

Private Sub CommandButton2_Click()

Set myShape = ActiveDocument.Shapes(2)
myShape.Select

Application.Dialogs(wdDialogInsertPicture).Show


End Sub

Nos comentas ok? :-)



¡Un SAludo! :-)

www.fermu.com
www.zorval.es