Nacházíte se: WALL.czExcel návod › Jak vložit obrázek do komentáře buňky
Kategorie: Excel návod

Jak vložit obrázek do komentáře buňky

ExcelPříklad, jak pomocí makra VBA vložit obrázek (formáty BMP, JPG, GIF, PNG) do komentáře aktuální buňky. Obrázek v komentáři má zachovanou velikost a poměr stran.

Praktické využití příkladu záleží na každém z vás. Já tento příklad využívám např. pro ukládání printscreenů při reportování chyb. V buňce je textový popis chyby a v komentáři je pak náhled na prinscreen obrazovky. Další možné využití by bylo třeba v ceníku, kde v komentáři je uložen obrázek produktu.

Jak vložit obrázek do komentáře buňky

Private Sub CommandButton1_Click() 'Vložit obrázek do komentáře buňky Dim Filtr As String Dim FileName As String Dim Title As String Dim cmt As Comment Dim dWidth As Double Dim dHeight As Double 'Příprava dialogového okna 'filtr vstupních souborů Filtr = "JPG - JPG formát(*.jpg),*.jpg," & _ "BMP - Windows Bitmap(*.bmp),*.bmp," & _ "GIF - GIF formát(*.gif),*.gif," & _ "PNG - PNG formát (*.png),*.png," & _ "Všechny soubory (*.*),*.*" 'titulek dialogového okna Title = "Vyberte soubor s obrázkem" FileName = Application.GetOpenFilename _ (FileFilter:=Filtr, _ FilterIndex:=1, _ Title:=Title) 'ošetřit, když není vybrán žádný soubor If FileName = "False" Then MsgBox "Nebyl vybrán žádný soubor.", vbExclamation, "Chyba" End End If 'Zjištění rozměrů obrázku ActiveSheet.Pictures.Insert(FileName).Select dWidth = Selection.Width dHeight = Selection.Height Selection.Delete 'Vložení obrázku do komentáře On Error Resume Next With ActiveCell Set cmt = .Comment If cmt Is Nothing Then Set cmt = .AddComment End If With cmt .Text Text:="" .Shape.Fill.UserPicture FileName .Shape.Width = dWidth .Shape.Height = dHeight .Visible = False End With End With End Sub

Soubor s příkladem ke stažení: Nejste přihlášen(a)

print Formát pro tisk

Sdílet článek:

Komentáře rss

Nemáte oprávnění přidávat příspěvky.

Uživatelské jméno
Heslo
     

Registrace >
Ztracené heslo >


, Makro odpovědět
avatar
Ahoj, makro je to úžasné, ale má jednu nepěknou vlastnost. Při zobrazení dalších řádků se obrázek postupně dostává mimo obrazovku (dolů)a musí se posouvat směrem nahoru, aby byl viditelný. Nešel by umístit vždy do viditelné stejné polohy? Děkuji za odpověď.citovat
odpověděl(a)
elninoslov
To možné asi nebude. Viď súčasná debata o probléme.citovat
, jak na to? odpovědět
avatar
Ahoj,
Mám dotaz. Nikdy jsem makra v Excelu neřešil ale teď potřebuji zpracovat v cenové nabídce právě něco na tento způsob. Když si ukážu na číslo produktu zobrazí se mi jeho výkres a vše to bude uloženo v jednom xls. Pomocí tvého úžasného makra by to šlo, jen nevím jak ho zprovoznit! :(
Samozřejmě nepíšu hned, trošku jsem studoval. Ale pořád mi to nějak nejde rozchodit. Když ve VBA vložím nový modul a zkopíruji do něj tvé makro, poté vytvořím tlačítko a snažím se mu modul přiřadit tak mi to nějak nejde.. Vůbec vytvořený modul nevidím.
Když se dívám ve VBA na tvůj xls tak tam žádný modul nevidím a je to přímo v kódu sešitu. To jsem taky zkoušl ale upřímně je to tápání ve tmě 6 .
Nejsem žádný programátor, jen obyčejný začínající obchodníček. Moc by mi pomohla jakákoliv rada.

Díky moc za případné rady!citovat
icon odpověděl(a)
admin
Ahoj.
Makro není v modulu, ale listě (CommandButton1_Click).citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09