Kopírování obrázků pomocí makra v excelu - rada

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

razor339
nováček
Příspěvky: 1
Registrován: říjen 17
Pohlaví: Muž

Kopírování obrázků pomocí makra v excelu - rada

Příspěvekod razor339 » 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

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
Nemáte oprávnění prohlížet přiložené soubory.



Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 832
Registrován: červenec 11
Pohlaví: Muž

Re: Kopírování obrázků pomocí makra v excelu - rada

Příspěvekod xlnc » 18 říj 2017 20:53

administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Tvorba makra v excelu
    od micka » 27 dub 2018 08:56 » v Kancelářské balíky
    4
    456
    od micka
    27 dub 2018 10:41
  • VBA makra Excel
    od Dawyck » 29 pro 2017 17:19 » v Kancelářské balíky
    3
    396
    od Dawyck
    29 pro 2017 20:45
  • Automatické spuštění makra v pravidelných intervalech
    od dan39 » 17 říj 2018 09:54 » v Kancelářské balíky
    5
    300
    od dan39
    18 říj 2018 08:48
  • Makro Excel - barevné zvýraznění výpisu z makra
    od Rosta_Kolmix » 22 lis 2017 13:42 » v Kancelářské balíky
    6
    431
    od Rosta_Kolmix
    24 lis 2017 21:15
  • Access 2016 > uložený export do makra
    od palap » 04 dub 2018 09:50 » v Vše ostatní (sw)
    0
    251
    od palap
    04 dub 2018 09:50

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 6 hostů