Try:
Sub BookmarkChart()
Dim objWord As Object, WordDoc As Object, BkMkRng As Object, StrBkMk As String
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
'Open Word file location on my computer - can be changed
Set WordDoc = objWord.Documents.Open("C:\Test.docx", False, False, False)
StrBkMk = "Chart1Bookmark"
'copy the new chart from Excel
Sheets("Sheet1").ChartObjects("Chart1").Chart.CopyPicture _
Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
'Finds the bookmark and pastes the new picture
With WordDoc
If .Bookmarks.Exists(StrBkMk) Then
Set BkMkRng = .Bookmarks(StrBkMk).Range
BkMkRng.Paste
.Bookmarks.Add StrBkMk, BkMkRng
End If
.Close True
End With
objWord.Quit
Set BkMkRng = Nothing: Set WordDoc = Nothing: Set objWord = Nothing
End Sub
As you'll see, there is no need to manipulate ScreenUpdating, Activate the worksheet, delete anything from the Word document, name the pasted chart, or have Word visible.
Bookmarks