Příspěvky uživatele


< návrat zpět

VBA script pro přenos do clipboardu (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:


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje