-
GAMEPOD.hu
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
Topikgazda
válasz thomas50.000 #31002 üzenetére
Megoldható, ha a jelzett cellák (B4:B23, L4:L23, AF4:AF23) a képek nevével azonosak, csak a kiterjesztést kell hozzájuk venni. Ezt kell átírnod a csillagozott sorokban, ha nem jpg a kiterjesztés, na meg az útvonalat.
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "D:\Mappa\Almappa\" '***
For sor = 4 To 23
Kepneve = Cells(sor, "B") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(2).Left + Columns(2).Width - .Width
End With
Kepneve = Cells(sor, "L") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(12).Left + Columns(12).Width - .Width
End With
Kepneve = Cells(sor, "AF") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(32).Left + Columns(32).Width - .Width
End With
Next
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- Vezetékes FÜLhallgatók
- Léghűtés topik
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- World of Tanks - MMO
- Otthoni hálózat és internet megosztás
- Ukrajnai háború
- Stellar Blade
- AMD off topik: VGA, CPU, APU és minden, ami AMD
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- További aktív témák...
- Steames kulcsok jó áron eladóak!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen