J
jason
I have the basics but I am obviously missing something.
find text:
myRange.Find.Execute FindText:="%PLOT_1"
paste plot:
Set WDApp = GetObject(, "Word.Application") ' Reference active
document
Set WDDoc = WDApp.ActiveDocument ' Copy chart as a picture
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen,
_
Format:=xlPicture ' Paste chart at cursor position
WDApp.Selection.PasteSpecial Link:=False,
DataType:=wdPasteMetafilePicture, _
Placement:=wdInLine, DisplayAsIcon:=False ' Clean up
Set WDDoc = Nothing
Set WDApp = Nothing
basically: i need a way to set Placement:= location(%PLOT_1)
but i am unsure how to do this.
any help would be great.
thanks!
find text:
myRange.Find.Execute FindText:="%PLOT_1"
paste plot:
Set WDApp = GetObject(, "Word.Application") ' Reference active
document
Set WDDoc = WDApp.ActiveDocument ' Copy chart as a picture
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen,
_
Format:=xlPicture ' Paste chart at cursor position
WDApp.Selection.PasteSpecial Link:=False,
DataType:=wdPasteMetafilePicture, _
Placement:=wdInLine, DisplayAsIcon:=False ' Clean up
Set WDDoc = Nothing
Set WDApp = Nothing
basically: i need a way to set Placement:= location(%PLOT_1)
but i am unsure how to do this.
any help would be great.
thanks!