Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

412 - Pasar una imagen a Word

Simple ejemplo que pega desde visual basic , una imagen o gráfico en un nuevo documento de Microsoft Word

El ejemplo , primero agrega un texto al comienzo del documento , le aplica un formato , y por último, ubica la selección al comienzo de la página y pega la imagen que está ubicada en un control image, en el portapapeles, y del portapapeles la pega en el documento

Pasos para el ej

Colocar un control Image1 y cargarle un gráfico
Añadir un command1
Agregar la referencia a Microsoft Word Object Library , para poder acceder al objeto Application y al objeto Range del .doc

Código fuente en el form

Option Explicit Private Sub Command1_Click() Dim ObjWord As Word.Application Dim ObjRange As Word.Range Dim NChar As Long Dim texto As String 'Crea un nuevo objeto de word Set ObjWord = CreateObject("Word.Application") ' agrega un nuevo documento ObjWord.Documents.Add texto = vbCrLf & "Titulo: Ejemplo " & vbCrLf & _ "Fecha: " & Date & vbCrLf & _ "Hora: " & Time & vbCrLf Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=0) ' asigna el texto anterior ObjRange.Text = texto ' cantidad de caracteres NChar = ObjWord.ActiveDocument.Characters.Count ' selecciona el rango, es decir todo el texto anterior Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=NChar - 1) ObjRange.Select ' Le aplica formato al texto seleccionado With ObjWord .Selection.Font.Size = 10 ' tamaño .Selection.Font.Name = "Verdana" ' fuente .Selection.Font.ColorIndex = wdBlue 'color End With ' Referencia al rango Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=0) ObjRange.Select ' lo selecciona Clipboard.Clear ' limpia el portapapeles ' Establece la imagen de Image1 en el Portap. Clipboard.SetData Image1.Picture ' pega el gráfico ObjWord.Selection.Paste ' limpia el Clipboard Clipboard.Clear ObjWord.Visible = True ' hace el Word Visible End Sub

Recursos Visual basic 6.0 - Enlaces relacionados :

Buscar en Recursos vb