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

• #30218 Delila_1 veterán Morphy #30217

  Új Válasz 2016-01-24 08:00:02 #30218

  Ú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 Morphy #30217 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim abra, utvonal As String, kiterj As String
  If Target.Address = "$A$1" Then
  utvonal = "D:\Képek\" '*****
  kiterj = ".jpg" '*****
  abra = utvonal & Application.WorksheetFunction.VLookup(Target, Range("I:J"), 2, 0) & kiterj '*****
  
  On Error Resume Next
  ActiveSheet.Pictures("Kép").Delete
  ActiveSheet.Pictures.Insert(abra).Name = "Kép"
  ActiveSheet.Pictures("Kép").Select
  With Selection
  .Left = Columns(2).Left
  .Top = Rows(3).Top
  .Width = 70 '*****
  .Height = 65
  End With
  Range("A1").Select '*****
  End If
  End Sub

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