< návrat zpět

MS Excel

Téma: Vložení obrázku makrem rss

Zaslal/a Petrden 13.4.2013 15:34

Ahoj, potřeboval bych pomoci:
Mám tabulku a potřebuji měnit nadpis tabulky pomocí vložení obrázku do buňky. Mám na výběr ze 3 obrázků které jsou uloženy v listu Galerie a představa je taková, že pomocí userform a OptionButton vyberu ve formu obrázek a ten se pak uloží do buňky nad tabulkou do listu Tabulka. Vytvoření kódu nedám a nic použitelného jsem zde na fóru nenašel tak prosím o pomoc někoho zkušeného. Snad to bude reálné udělat. Díky

Příloha: rar12853_nadpis.rar (18kB, staženo 29x)
stop Uzamčeno - nelze přidávat nové příspěvky.
Opičák(13.4.2013 16:15)#012854
Opičák
Reálné to určitě je třeba takto.
V Module je ještě makro pro vymazání stávajícího obrázku, pokud tam nějaký je.
Příloha: zip12854_kopie-nadpis.zip (35kB, staženo 77x)
citovat
Opičák(13.4.2013 16:18)#012855
Opičák
Ve formuláři by nemuselo být tlačítko "proveď změny", změna by mohla nastat ihned po volbě.citovat
Petrden(13.4.2013 16:29)#012857
avatar
No to je super, díky moc...super dle představ.
Tlačítko proveď změny si tam ponechám pač pod něj ještě přibudou nějaké úpravy formuláře.
Ještě jednou díky...citovat
Opičák(13.4.2013 17:21)#012859
Opičák
Makro pro mazání obrázků si přepiš, původní není spolehlivé a může smazat i něco jiného.

Sub vymazatObrazek()
Rem vymaže existující obrázek
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shp.Delete
End If
Next shp
End Subcitovat
Opičák(13.4.2013 18:13)#012860
Opičák
Posílám ještě jinou variantu bez obrázků, připadá mi to složité. Ale nevím jaké mají být finální obrázky.
Příloha: zip12860_kopie-nadpis-2.zip (28kB, staženo 62x)
citovat
Petrden(14.4.2013 18:19)#012867
avatar
Díky za druhou variantu...jen to musím promyslet co pro mě bude praktičtější. Přiložené obrázky v souboru budou mít ještě grafické nadpisy wordart a obrázků bude celkem cca 20.
Musel bych tedy nějak spojit pozadí s Wordart (OptionButton pro výběr pozadí a OptionButton pro nadpis), ale pravděpodobně bude pro mě jednoduší si vše připravit do obrázku a ty po sléze měnit. Každopádně díkycitovat

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