Ich versuche, einen Code zu erstellen, in dem Diagramme aus einer XLS-Datei in ein Word-Dokument mit der PasteSpecial-Eigenschaft (Bild (erweiterte Metadatei). Ich möchte das vorhandene ändern . Diagramme des Dokuments neue Also, ich dachte, dass OK wäre Lesezeichen für die bestehenden Charts mit I OFFICE bin mit 2007Kopie von XLS-Dokument in Word mit VBA
ich habe den folgenden Code geschrieben:.
Dim YMApp As Word.Application
Dim YMDoc As Word.Document
Dim B as Bookmark
paaath = "D:\"
dime = "NameOld.doc"
dime2 = "NameNew.doc"
Set YMApp = New Word.Application
YMApp.Visible = True
Set YMDoc = YMApp.Documents.Open(paaath & dime)
Word.Documents(dime).SaveAs (paaath + dime2)
For k = 1 To 6
Windows("New.xls").Activate
Sheets("graph").Select
Range("L" + Trim(Str(br(k))) + ":V" + Trim(Str(br(k) + 24))).Select
Selection.Copy
ddd = "bm" + Trim(Str(k))
Set B = YMDoc.Bookmarks(ddd)
YMApp.Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=B
Next k
YMDoc.Close
YMApp.Quit
Application.CutCopyMode = False
ActiveWorkbook.Close
End
End Sub
die Problem ist, dass durch diesen Code die Lesezeichen, die bereits erstellt wurden, nicht erkannt werden.Wie man mit dem Problem fertig wird?
Was meinen Sie mit „die Lesezeichen nicht erkannt werden“? Erhalten Sie einen Fehler? Oder entspricht die Ausgabe nicht Ihren Erwartungen? Bitte erläutern ... –
Sorry, für die falsche Aussage. Ich bin kein Spezialist. Das ist wie ein Hobby und ich versuche die Zeit für die Umsetzung meiner Arbeit zu reduzieren. Ich erhalte keinen Fehler, einfach werden die Diagramme nicht dort platziert, wo die Lesezeichen sind, sondern am Anfang des Blattes übereinander. – Georgy