Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
... Image (Obrázek) a jeho použítí ve formuláři za pomocí VBA...
Karta Vývojář - Visual Basic. Menu Insert - UserForm. Z Toolboxu vybereme Image.
Seznam základních vlastností prvku Image (Obrázek). Okno vlastností můžeme zobrazit klávesou F4.
Pojmenování prvku (můžeme změnit). Ve kódech se pak budeme na tento prvek odkazovat jeho jedinečným názvem. V našem příkladě je (Name) Image1.
Pozor: Název prvku se musí změnit před psaním kódu. Když dojde ke změně názvu po napsání VBA kódu jeho odkazy se nezmění.
Specifikuje, zda mění objekt automaticky velikost v souladu se svým celým obsahem. Pokud mění tak velký text zvětší objekt.
Hodnota (True - mění, False - výchozí, nemění)
Image1.AutoSize = True
AutosizeStav = Image1.AutoSize
Vrací nebo nastavuje barva pozadí objektu TextBox.
Image1.BackColor = RGB(255, 128, 128)
BarvaPozadi = Image1.BackColor
Vrací nebo nastavuje styl pozadí objektu Label.
fmBackStyleTransparent (0) Pozadí je průhledné.
fmBackStyleOpaque (1) Pozadí je neprůhledné (výchozí nastavení).
Image1.BackStyle = fmBackStyleTransparent
Vrací nebo nastavuje barvu okrajů. Pokud není nastaven okraj tak se změna barvy neprojeví.
Image1.BorderColor = RGB(254, 127, 127)
Poznámka: Nutno mít nastaven BorderStyle
Vrací nastavení nebo změní nastavení okrajů.
Image1.BorderStyle = fmBorderStyleSingle
Poznámka: ignoruje se pokud je vlastnost SpecialEffect = none
Bublinková nápověda. Zobrazí se při najetí nad objekt
Image1.ControlTipText = "Můj text v bublinkové nápovědě."
ControlTipText = Image1.ControlTipText
Určuje, zda se může ovládací prvek stát aktivním a odpovídat na události, generované uživatelem. Nebo specifikuje jak je tato vlastnost aktuálně nastavena.
Image1.Enabled = True
EnabledNastaveni = Image1.Enabled
Vrací výšku objektu nebo jeho výšku nastaví.
Image1.Height = 28
Vyska = Image1.Height
Umístění objektu od levého okraje. Nebo zjištění jak je umístěn objekt.
umistenileft = Image1.Left
Image1.Left = 12
Přiřazení ikony por objekt
Image1.MouseIcon = LoadPicture ("c:\mojeIkonka.ico")
Vrací typ ukazatele myši, nebo nastaví ukazatel myši. Hodnoty jsou:
Image1.MousePointer = fmMousePointerHelp
Nastavení obrázek na pozadí.
Image1.Picture = LoadPicture("c:\Obrazek.jpg")
Poznámka: Nutno zadat správný název a umístění obrázku.
Udává umístění obrázku v pozadí. Nebo vrací nastavení této vlastnosti.
Image1.PictureAlignment = fmPictureAlignmentTopRight
Udává, jak se v ovládacím prvku, formuláři nebo stránce zobrazí obrázek v pozadí.
Image1.PictureSizeMode = fmPictureSizeModeStretch
Poznámka: Nejprve musí být nahrán nějaký obrázek.
Umožňuje uspořádat obrázek na formuláři nebo stránce jako dlaždice.
Image1.PictureTiling = True
Vrací nebo určuje speciální efekty objektu.
Image1.SpecialEffect = fmSpecialEffectFlat
Image1.SpecialEffect = 6
StavSpecialEfekt = Image1.SpecialEffect
Doplňkové informace o objektu.
Umístění objektu od horní okraje. Nebo zjištění jak je umístěn objekt.
umistenitop = Image1.Top
Image1.Top = 12
Nastavuje viditelnost objektu, nebo zobrazuje jaký stav má objekt. Nabývá hodnot TRUE (viditelný - výchozí nastavení), FALSE (neviditelný).
Image1.Visible = False
Image1.Visible = True
Vrací šířku objektu nebo jeho výšku nastaví.
Image1.Width = 110
Sirka = Image1.Width
Hotový příklad ke stažení:
Formulář Image (Obrázek) - vlastnosti ukázky použití
Popis vlastnosti objektu Image (Obrázek) máme za sebou :)
Článek byl aktualizován: 19.09.2020 11:06
Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.
Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2025 |