Pues bien, mi intención era pegar la imagen y más texto en un documento .doc directamente desde mi aplicación. Para ello he creado este módulo con una acción a la que se llama desde un botón.
Código:
Primero compruebo que, efectivamente, la imagen del portapapeles es BMP. Todo funciona bien, incluso insertar el texto pero da error de automatización con la imagen.Sub Barras()
Dim etiqueta As Object
Dim img As StdPicture
Dim impr As Integer
If Clipboard.GetFormat(vbCFBitmap) Then
MsgBox "Imagen BMP", 0, "Imagen"
Set img = Clipboard.GetData
End If
Set etiqueta = CreateObject("Word.Basic")
If Err Then
MsgBox "Se han producido errores al crear la etiqueta", vbExclamation, "Error"
Exit Sub
End If
etiqueta.FileNewDefault
etiqueta.Insert img
etiqueta.Insert Chr(13)
etiqueta.Insert ArticuloNuevo.TextDescripcion.Text
impr = MsgBox("Desea imprimir la etiqueta del artículo", vbQuestion + vbYesNoCancel, "Crear etiqueta")
If impr = vbYes Then
etiqueta.Print
End If
etiqueta.AppMaximize
etiqueta.AppClose
Set etiqueta = Nothing
End Sub
He probado también con
Código:
pero no soporta la propiedad o el método.etiqueta.Paste
¿Cómo se puede hacer?¿Tiene que ver con las referencias a librerías VBA?
Gracias por llegar hasta aquí.

Este tema le ha gustado a 1 personas (incluyéndote)