Hirdetés
- HiFi műszaki szemmel - sztereó hangrendszerek
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Házimozi belépő szinten
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Androidos fejegységek
- Lítium-ion/Li-ion akkumulátorok
- Bambu Lab 3D nyomtatók
- Fejhallgató erősítő és DAC topik
- Milyen billentyűzetet vegyek?
-
PROHARDVER!
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
válasz
Pilács
#29940
üzenetére
Feltételezem, hogy az "egyik oszlop" a C, ez az oszlop tartalmaz címsort, és hogy a képek és az útvonaluk folyamatosan követik egymást, üres sorok nélkül.
A makró a bemásolt képek magasságát a sorok magasságához igazítja, és a méretarányt az eredetihez képest megtartja.
Sub kepek()
Dim sor As Long, usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
Range("D" & sor).Select
ActiveSheet.Pictures.Insert(Range("C" & sor)).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = Rows(sor).Height
Next
Columns(3).Delete Shift:=xlToLeft
End Sub
Új hozzászólás Aktív témák
- Sweet.tv - internetes TV
- HiFi műszaki szemmel - sztereó hangrendszerek
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- BestBuy topik
- Gitáros topic
- WoW avagy World of Warcraft -=MMORPG=-
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Anime filmek és sorozatok
- Jövedelem
- Házimozi belépő szinten
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Apple iPhone Xs 256GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 14 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3972
- BESZÁMÍTÁS! Gigabyte B550M R7 3700X 32GB DDR4 512GB SSD RTX 3060Ti 8GB Zalman Z1 PLUS CM 700W
- ÁRCSÖKKENTÉS Intel Core i5 3470 confidential Ivy bridge Quad Core
- Samsung Galaxy A8 2018 32GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest



Fferi50

