MS Excel

Téma: VBA script pro přenos do clipboardu

Zaslal/a Mape 3.4.2019 9:35

Ahoj,
snažím se jako skutečný amatér napsat jednoduchý script, který vybranou oblast v Excelu pošle do clipboardu pro potřebu vložení do wordu, nebo jinam. Problém, který neumím vyřešit nastává ve chvíli kdy je součástí obrázek.
Script vypadá takto:

Sub ToClipboard()

Dim lr As Long
Dim lc As Long

lr = ActiveSheet.Range("B3").End(xlDown).Row
lc = ActiveSheet.Range("B7").End(xlToRight).Column

Workbooks(Export).Worksheets(ExportList).Range("B3", ActiveSheet.Cells(lr, lc)).Copy

MsgBox "Vložte pomocí CTRL+V do Wordu. Až pak klikněte na OK"

Application.DisplayAlerts = False
Workbooks(Export).Close
Application.DisplayAlerts = True

End Sub

A teď k tomu problému. Pokud ten výběr vložím ve chvíli kdy jsem si tam dal ten msgbox tak je vše OK, ale jak se pokusím o vložení po uzavření sešitu, tak je rázem po obrázku.
Dokážete mi prosím někdo poradit?
Soubory v příloze: