|
Hi,
I am trying to paste 6 Charts as bitmap from VB.Net to one Word page. I can do this from Excel to Word by using Excel Macro. But the code does not work in VB.NET:
wdApp = CreateObject( "Word.Application")
wordD = wdApp.Documents.Add
For i = 0 To 5
My.Computer.Clipboard.Clear()
My.Computer.Clipboard.SetImage(ChartBitmap(i))
wordD.Sections.Item(1).Range.PasteS pecial()
'wordD.Sections.Item(1).Range.ShapeRange.Item(i).IncrementLeft( i * 10)
'wordD.Sections.Item(1).Range.ShapeRange.Item(i).IncrementTop(i * 10)
Next i
Thanks.
Coding4Fun - A Happy BackgroundWorker |