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 jsou automaticky uzavřeny 730 dnů po vydání článku.

Komentáře rss

stop Uzamčeno - nelze přidávat nové příspěvky.

icon, jak na to?
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 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

Novinky

Formulář Faktura III

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

Aktivní diskuse

Náhodný výběr ze sloupců

roupiik • 24.7. 20:29

Náhodný výběr ze sloupců

Opičák • 24.7. 18:35

Náhodný výběr ze sloupců

Pavlus • 24.7. 18:18

Náhodný výběr ze sloupců

roupiik • 24.7. 16:57

Ukončení cyklu

Richard99 • 24.7. 16:42

Ukončení cyklu

Palooo • 24.7. 15:41

Excel 2003 - rozevírací seznam v buňce

Adecko • 24.7. 14:51