Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- btz: Internet fejlesztés országosan!
- Brogyi: CTEK akkumulátor töltő és másolatai
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Luck Dragon: MárkaLánc
-
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
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest