Tweet

Image (Obrázek) vlastnosti ve VBA

Vložit Image

Karta Vývojář - Visual Basic. Menu Insert - UserForm. Z Toolboxu vybereme Image.

Vlastnosti Image:

Seznam základních vlastností prvku Image (Obrázek). Okno vlastností můžeme zobrazit klávesou F4.

• (Name)
• AutoSize
• BackColor
• BackStyle
• BorderColor
• BorderStyle
• ControlTipText
• Enabled
• Height
• Left
• MouseIcon
• MousePointer
• Picture
• PictureAlignment
• PictureSizeMode
• PictureTiling
• SpecialEffect
• Tag
• Top
• Visible
• Width

(Name)

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í.

AutoSize

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


BackColor

Vrací nebo nastavuje barva pozadí objektu TextBox.

  Image1.BackColor = RGB(255, 128, 128)
  BarvaPozadi = Image1.BackColor


BackStyle

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


BorderColor

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

BorderStyle

Vrací nastavení nebo změní nastavení okrajů.

• fmBorderStyleNone - 0 - nemá viditelný okraj
• fmBorderStyleSingle - 1 - viditelný okraj

  Image1.BorderStyle = fmBorderStyleSingle


Poznámka: ignoruje se pokud je vlastnost SpecialEffect = none

ControlTipText

Bublinková nápověda. Zobrazí se při najetí nad objekt

  Image1.ControlTipText = "Můj text v bublinkové nápovědě."
  ControlTipText = Image1.ControlTipText


Enabled

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


Height

Vrací výšku objektu nebo jeho výšku nastaví.

  Image1.Height = 28
  Vyska = Image1.Height


Left

Umístění objektu od levého okraje. Nebo zjištění jak je umístěn objekt.

  umistenileft = Image1.Left
  Image1.Left = 12


MouseIcon

Přiřazení ikony por objekt

  Image1.MouseIcon = LoadPicture ("c:\mojeIkonka.ico")


MousePointer

Vrací typ ukazatele myši, nebo nastaví ukazatel myši. Hodnoty jsou:

• fmMousePointerDefault 0 - standartní ukazatel
• fmMousePointerArrow 1
• fmMousePointerCross 2
• fmMousePointerIBeam 3
• fmMousePointerSizeNESW 6
• fmMousePointerSizeNS 7
• fmMousePointerSizeNWSE 8
• fmMousePointerSizeWE 9
• fmMousePointerUpArrow 10
• fmMousePointerHourglass 11
• fmMousePointerNoDrop 12
• fmMousePointerAppStarting 13
• fmMousePointerHelp 14
• fmMousePointerSizeAll 15
• fmMousePointerCustom 99

  Image1.MousePointer = fmMousePointerHelp


Picture

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.

PictureAlignment

Udává umístění obrázku v pozadí. Nebo vrací nastavení této vlastnosti.

• fmPictureAlignmentTopLeft - 0 - Levý horní roh.
• fmPictureAlignmentTopRight - 1 - Pravý horní roh.
• fmPictureAlignmentCenter - 2 - Střed.
• fmPictureAlignmentBottomLeft - 3 - Levý dolní roh.
• fmPictureAlignmentBottomRight - 4 - Pravý dolní roh.

  Image1.PictureAlignment = fmPictureAlignmentTopRight


PictureSizeMode

Udává, jak se v ovládacím prvku, formuláři nebo stránce zobrazí obrázek v pozadí.

• fmPictureSizeModeClip - 0 - Zkrátí část obrázku, jež přesahuje formulář nebo stránku (výchozí nastavení).
• fmPictureSizeModeStretch - 1 - Natáhne obrázek, aby vyplňoval formulář nebo stránku. Toto nastavení může obrázek zkreslit ve vodorovném nebo svislém směru.
• fmPictureSizeModeZoom - 3 - Zvětší obrázek, ale nezkreslí ho ani ve vodorovném ani ve svislém směru.

  Image1.PictureSizeMode = fmPictureSizeModeStretch


Poznámka: Nejprve musí být nahrán nějaký obrázek.

PictureTiling

Umožňuje uspořádat obrázek na formuláři nebo stránce jako dlaždice.

• True - Obrázek se v pozadí opakovaně zobrazí jako dlaždice.
• False - Obrázek se nezobrazí v pozadí opakovaně (výchozí nastavení).

  Image1.PictureTiling = True


SpecialEffect

Vrací nebo určuje speciální efekty objektu.

• fmSpecialEffectFlat 0
• fmSpecialEffectRaised 1
• fmSpecialEffectSunken 2
• fmSpecialEffectEtched 3
• fmSpecialEffectBump 6

  Image1.SpecialEffect = fmSpecialEffectFlat
  Image1.SpecialEffect = 6
   StavSpecialEfekt = Image1.SpecialEffect


Tag

Doplňkové informace o objektu.

  


Top

Umístění objektu od horní okraje. Nebo zjištění jak je umístěn objekt.

  umistenitop = Image1.Top
  Image1.Top = 12


Visible

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


Width

Vrací šířku objektu nebo jeho výšku nastaví.

  Image1.Width = 110
  Sirka = Image1.Width


Ke stažení

Hotový příklad ke stažení: Formulář Image (Obrázek) - vlastnosti ukázky použití

Závěr

Popis vlastnosti objektu Image (Obrázek) máme za sebou :)

Článek byl aktualizován: 01.11.2014 14:01

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). 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 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře

Jakub

Přidáno: 06.02.15 07:22

Omlouvám se za ERROR, pokud to tento příspěvek neopraví, tak prosím správce o jeho smazání a úpravu předchozího příspěvku.

Přidáno: 06.02.15 07:24

Honza

Přidáno: 04.03.15 10:30

To Jakub. Podívej se výše na můj dotaz a řešení. Mělo by ti to pomoct.

Oki

Přidáno: 24.06.15 11:08

Dobrý den Potrebujem vložiť obrázok do vyhraničeného okna tak, aby vyplnil celé okno a nepresahoval, PictureSizeModeStretch mi nefunguje. Vopred ďakujem

oki

Přidáno: 24.06.15 16:47

Vyriešené stačí odomknúť pomer strán .LockAspectRatio = msoFalse aj tak ďakujem

Tomáš

Přidáno: 02.10.15 08:51

Dobrý den, mám problém s tímto kodem: Sub Convert_Graf_Do_Obrazku() Dim Cht As Chart If ActiveChart Is Nothing Then Exit Sub Set Cht = ActiveChart Cht.CopyPicture xlPrinter, xlScreen, xlPicture ActiveWindow.RangeSelection.Select ActiveSheet.Paste With ActiveSheet .Height = 100 .Width = 100 End With End Sub Tento kod mi z grafu vytvoří obrázek, ale já nevím, jak nastavit jeho rozměry. Možná, že už to tady někdo dělal, ale jsem začátečník, tak se v tom ještě tolik nevyznám. Díky!!

David

Přidáno: 21.06.16 16:29

Dobrý den, je možné vkládat obrázky, které jsou součástí souboru .htm do těla emailové zprávy, která je generována automaticky? Obrázek se mi aktuálně do mailu vloží, ale zobrazen není. Respektive je zobrazena hláška: "Tento obrázek nyní nelze zobrazit"