P
paulquinlan100
Hi
I've got a bit of code that copys some charts from excel into Word as
an enhanced metafile, however once in word i need to resize (reduce)
the charts. I have the code to do both of these things (see below),
however, the problem i am having is actually selecting the newly
pasted in chart so that it can be resized.
Any suggestions of how to go about this?
Thanks
Paul
Dim WordObj As Object
Set WordObj = CreateObject("Word.application")
With WordObj
.Visible = True
.Documents.Open "c:\paper\" & Title & ".doc"
End With
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.ChartArea.Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
Format:=xlPicture
WordObj.Selection.Goto What:=wdGoToBookmark, Name:="Bkm1"
WordObj.Selection.PasteSpecial Link:=False,
DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
''######## this is where i need to select the new image
###########################
WordObj.Selection.ShapeRange.ScaleWidth 0.53, msoFalse,
msoScaleFromTopLeft
WordObj.Selection.ShapeRange.ScaleHeight 0.53, msoFalse,
msoScaleFromTopLeft
I've got a bit of code that copys some charts from excel into Word as
an enhanced metafile, however once in word i need to resize (reduce)
the charts. I have the code to do both of these things (see below),
however, the problem i am having is actually selecting the newly
pasted in chart so that it can be resized.
Any suggestions of how to go about this?
Thanks
Paul
Dim WordObj As Object
Set WordObj = CreateObject("Word.application")
With WordObj
.Visible = True
.Documents.Open "c:\paper\" & Title & ".doc"
End With
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.ChartArea.Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
Format:=xlPicture
WordObj.Selection.Goto What:=wdGoToBookmark, Name:="Bkm1"
WordObj.Selection.PasteSpecial Link:=False,
DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
''######## this is where i need to select the new image
###########################
WordObj.Selection.ShapeRange.ScaleWidth 0.53, msoFalse,
msoScaleFromTopLeft
WordObj.Selection.ShapeRange.ScaleHeight 0.53, msoFalse,
msoScaleFromTopLeft