| Pregunta: | 42913 - IMAGEN EN WORD DESDE VB6 |
| Autor: | Angel Robles |
| Hola, antes de nada muchas gracias por ayudarme. tengo un aplicacion q genera un documento de word rellenando una serie de datos previamente introducidos. En introducir estos datos no hay problema, el problema me surge cuando quiero introducir una imagen. ¿Como puedo introducir una imgen en word desde visual y variar su tamaño para que aparezca con unas dimensiones predeterminadas?
Muchas gracias | |
| Respuesta: | Edgar Talamantes |
| Para poder introducir una imagen en word te dejo este codigo:
'Crea un nuevo proyecto con un commandbutton 'Agrega una referencia a Word library (Proyecto>>Referancias) 'Declara una variable Myimage para la direccion de la imagen Private Sub Command1_Click() 'declare variables Dim wrdselection As Word.Selection Dim MyImage As String 'create instance of word object Set wrdapp = CreateObject("Word.Application") 'set path to image MyImage = "C:/is200se.jpg" 'show the word document wrdapp.Visible = True 'add a new document to word object Set wrddoc = wrdapp.Documents.Add 'set up a selection area in document to add to Set wrdselection = wrdapp.Selection 'add the picture to the selection area wrdselection.InlineShapes.AddPicture MyImage Set wrdselection = Nothing Set wrdapp = Nothing Set wrddoc = Nothing End Sub Esta informacion la saque de http://www.vbcode.com/Asp/showsn.asp?theID=8261 Pero no se como puedas variar el tamaño de la imagen. Pero puedes seguir buscando en www.vbcode.com Suerte | |