Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eBay-es kütyük kis pénzért
- GoodSpeed: Márkaváltás sok-sok év után
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- N€T0X|N: Poloskahegy
- bb0t: Ikea PAX gardrób és a pokol logisztikája
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
Cella méretéhez nem tudom igazítani a képeket, pedig állítólag lehet.
A lenti makró az A oszlop celláihoz rendel megjegyzéseket, és ezekbe teszi be a képet.Az útvonalat írd át. A képeket ehhez a módszerhez át kell nevezned Kép1, Kép2, stb. névre. Érdemes új mappát létrehozni, abba bemásolni az eredeti képeket, és ott adni nekik új nevet. A Total Commander csoportos átnevezés parancsával ez könnyen megoldható.
Sub KepekMegjegyzesbe()
Dim sor%, utvonal As String
utvonal = "E:\Képek\" 'Ezt írd át
sor% = 1
Do While Cells(sor%, 1) > ""
With Cells(sor%, 1)
.Select
.AddComment
ActiveCell.Comment.Visible = True
.Comment.Text Text:=""
.Comment.Visible = True
End With
Selection.Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture utvonal & "Kép" & sor% & ".jpg"
sor% = sor% + 1
Loop
End Sub
Új hozzászólás Aktív témák
- HIBÁTLAN iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3846, 100% Akkumulátor
- Mac Mini M4 AZONNAL 16GB 256GB 1 év gar
- Acer Nitro 16 - 16" WQXGA 165Hz - Ryzen 7 8845HS - 16GB - 1TB - Win11 - RTX 4070 - Garancia
- Új Asus 15 Expertbook FHD Nano i5-13420H 4.6Ghz 16GB DDR5 512GB SSD UHD Graphics XE Win11 Garancia
- GYÖNYÖRŰ iPhone XR 128GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3985, 100% Akkumulátor
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest
Fferi50
