Paste special mit vielen Bildern scheitert
11.06.2014 00:57:43
Lohr
ich übergebe mit VBA mehrere Excel-Tabllenblätter an verschiedene Textmarken in einem Word Dokument. Das letzte Tabellenblatt enthält bis zu 32 Fotos und kurze Bildunterschriften. Alle Blätter werden problemlos in Word übernommen - nur das letzte "Fotoblatt" macht Probleme. Solang die Gesamtgröße des Fotoblattes nicht über ca. 17 MB hinausgeht wird es reibungslos übernommen - wird die Datenmenge aber größer, dann dauert die Rechnerei gern mal über 10 Minuten und am Ende sind zwar alle Bildunterschriften übernommen worden, aber kein einziges Foto? Die Bilder werden in Excel als Shapes erfasst, die Bildunterschriften sind normale Strings. Mein Code zur Übergabe des Fotoblattes (das in der Anzahl der Bilder bzw. Zeilen variieren kann):
Worksheets("Foto-Anlage").Activate
Dim lngLastRow7 As Long '6 andere Blätter vorher
With ActiveSheet
lngLastRow7 = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("A1:C" & lngLastRow7).Copy
End With
myWord.ActiveDocument.Bookmarks("Fotos").Range.PasteSpecial
Application.CutCopyMode = False
Weiß jemand Rat?
Mit bestem Dank im Voraus, Michael