-
IT café
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
Silious #49380 üzenetére
Rendeld a lapodhoz (lásd Összefoglaló) a lenti makrót:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FN As Picture
Dim KepHelye As String
If Target.Column = 1 Then
KepHelye = "C:\kepek\" & Target & ".jpg"
With Cells(Target.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
End If
End Sub
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
- Borotva, szakállnyíró, szakállvágó topic
- Luck Dragon: Asszociációs játék. :)
- Pécs és környéke adok-veszek-beszélgetek
- Huawei P40 Pro - kilökték a célegyenesben
- Elden Ring
- Ukrajnai háború
- Gitáros topic
- BestBuy topik
- Úgy tűnik, nem lesz Samsung Galaxy Tab S10
- mefistofeles: "Kezdő Gamer gép" őrület.
- További aktív témák...
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem nyárra most kedvező áron..."
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen