Hirdetés
- Elektromos rásegítésű kerékpárok
- sziku69: Fűzzük össze a szavakat :)
- MasterDeeJay: ASRock B250M Pro4 coffeetime mod! (DDR4)
- hcl: Olympus E-PL1 nyomozás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Luck Dragon: Asszociációs játék. :)
- ldave: New Game Blitz - 2026
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
-
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
Hirdetés
- Jelentősen meglazítja a gyeplőt a Windows 11 frissítéseknél a Microsoft
- Kerékpárosok, bringások ide!
- Battlefield 6
- Crimson Desert
- Konteó topic
- Anglia - élmények, tapasztalatok
- Május 4-én érkezik a Steam Controller
- Genshin Impact (PC, PS4, Android, iOS)
- Fejhallgató erősítő és DAC topik
- iPhone topik
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Lenovo ThinkPad X13 Gen 3 i5-12. gen-16GB DDR5 RAM 256GB SSD FHD+ gari. 4g modem Érintőkijelző
- Keresünk iPhone 14/14 Plus/14 Pro/14 Pro Max
- iPhone 13 mini 128GB 88% (1év Garancia)
- Azonnali készpénzes AMD Ryzen 1xxx 2xxx 3xxx 5xxx processzor felvásárlás személyesen / csomagküldés
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50