Kopírování obrázků pomocí makra v excelu - rada
Napsal: 14 říj 2017 17:50
Ahojte,
potřebuju poradit ohledně - Kopírování obrázků pomocí makra v excelu. Například abych měl v jednom sloupci jako vstup například 10 různých buněk a podle toho jaký zadám vstup se v druhém sloupci na určité buňce vloží obrázek to vše na listě 1 ......(obrázky jsou uloženy na druhém listě souboru).
Stáhnul jsem zde už vesměs hotové řešení ale pro jednu buňku a nemohu přijít na to jak ten skript uděla funkčí pro výše popsaný příklad. Makra a ve VBA jsem nikdy nedělal a potřeboval bych pouze tento jeden dokument abych měl více vstupních buněk a i výstupních jak jsem popsal
Předem díky za rady
Přikládám skript a také xmls soubor se skoro hotovým řešením
skript
potřebuju poradit ohledně - Kopírování obrázků pomocí makra v excelu. Například abych měl v jednom sloupci jako vstup například 10 různých buněk a podle toho jaký zadám vstup se v druhém sloupci na určité buňce vloží obrázek to vše na listě 1 ......(obrázky jsou uloženy na druhém listě souboru).
Stáhnul jsem zde už vesměs hotové řešení ale pro jednu buňku a nemohu přijít na to jak ten skript uděla funkčí pro výše popsaný příklad. Makra a ve VBA jsem nikdy nedělal a potřeboval bych pouze tento jeden dokument abych měl více vstupních buněk a i výstupních jak jsem popsal
Předem díky za rady
Přikládám skript a také xmls soubor se skoro hotovým řešením
skript
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ObrNm As Variant
ObrNm = Range("C5")
Application.ScreenUpdating = False
'Smaze vsechny obrazky na listu
ActiveSheet.Pictures.Delete
'Vybere list s obrazkama
Sheets("List2").Select
'Kdyz nenalezne obr. preskoci
On Error GoTo Err
'Vybere obr. a kopiruje
ActiveSheet.Shapes.Range(Array(ObrNm)).Select
Selection.Copy
'Vrátí se na predchozí list a vloží obr.
Sheets("List1").Select
Range("G19").PasteSpecial
Err:
Sheets("List1").Select
Range("C5").Select
Application.ScreenUpdating = True
End Sub