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: 806
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
    414
    od micka
    27 dub 2018 10:41
  • Excel - kopírování dat z jednoho souboru do druhého pomocí VBA
    od simstriks » 14 zář 2017 09:28 » v Kancelářské balíky
    26
    1787
    od simstriks
    11 říj 2017 14:50
  • VBA makra Excel
    od Dawyck » 29 pro 2017 17:19 » v Kancelářské balíky
    3
    375
    od Dawyck
    29 pro 2017 20:45
  • Automatické spuštění makra po změně buňky
    od Wertigo » 27 zář 2017 10:14 » v Kancelářské balíky
    3
    574
    od Wertigo
    29 zář 2017 08:31
  • Makro Excel - barevné zvýraznění výpisu z makra
    od Rosta_Kolmix » 22 lis 2017 13:42 » v Kancelářské balíky
    6
    412
    od Rosta_Kolmix
    24 lis 2017 21:15

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

Kdo je online

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