Visual Basic - Pegar una imagen en word con VB6

Life is soft - evento anual de software empresarial
 
Vista:

Pegar una imagen en word con VB6

Publicado por pedrosa (1 intervención) el 22/04/2005 11:45:15
Lo que quiero hacer es pegar un grafico de mschart en word. Puedo insertar texto, pero no me doy cuenta como pegar la imagen que mande al clipboard con mschart.editcopy. Les mado una parte del codigo

'Creo la instancia de word
Set MSWord = New Word.Application
Set Documento = MSWord.Documents.Add
Documento.Range.Font.Size = 8
Set Renglon = Documento.GoTo()

'Cargo el recordset para el grafico
gs_cmd = "Select " ......
Set LRS_Grafico = Nothing
LRS_Grafico.Open gs_cmd, gado_base, adOpenStatic

'Le asigno el recordset al grafico
Set Me.MSChart_Grafico.DataSource = LRS_Grafico
MSChart_Grafico.chartType = VtChChartType2dBar
MSChart_Grafico.Stacking = True
MSChart_Grafico.ShowLegend = True

'Copio el grafico a el clipboard
Clipboard.Clear
MSChart_Grafico.EditCopy

' y en vez de
'Renglon.InsertAfter "bla bla" & Chr(13)
'deberia insertar la imagen en el renglon que yo quiera

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder