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