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

• #11105 Delila_1 veterán varsam #11104

  Új Válasz 2011-08-17 18:25:35 #11105

  Ú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 varsam #11104 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = "" Then Exit Sub
  If Target.Address = "$B$2" Then 'ehelyett írd azt a cellát, amibe adatot viszel a kép
  'megjelenítéséhez
  Dim utvonal As String
  Dim FN As String
  
  utvonal = "D:\valami\valami_más\" 'ide írd a saját útvonaladat
  FN = "képneve.jpg" 'ide írd a beszúrandó kép nevét kiterjesztéssel
  
  Range("D2").Select 'a D2 bal felső sarkához illeszti a képet, írd át
  ActiveSheet.Pictures.Insert(utvonal & FN).Select
  End If
  End Sub

  Ha a B2 cellába írsz valamit, a D2-be beilleszti a képet, aminek az útvonalát és a nevét a kiterjesztéssel együtt megadod a jelölt sorokban.

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