Új hozzászólás Aktív témák

• #31139 Delila_1 veterán gaben86 #31138

  Új Válasz 2016-03-26 18:17:01 #31139

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #31138 üzenetére

  Az M oszlopba írtam be soronként a megjelenítendő képek nevét, kiterjesztés nélkül. Mikor az A:G tartományban rákattintasz egy cellára, ahol az M oszlopban van képnév, a H oszlopban megjelenik a megfelelő kép.

  A lapodhoz kell rendelni a makrót. Írd át az útvonalat!

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Kepneve As String, utvonal As String
  
  If Not Intersect(Target, [A:G]) Is Nothing Then
  utvonal = "C:\Adott mappa\" 'Ide az igazi útvonalat írd be!
  On Error Resume Next
  ActiveSheet.Shapes("Kep").Delete
  
  Kepneve = Cells(Target.Row, "M") & ".jpg"
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Name = "Kep"
  .Left = Columns(8).Left
  .Top = ActiveCell.Top
  .Height = 180
  End With
  On Error Goto 0
  End If
  End Sub

Új hozzászólás Aktív témák