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

• #23914 slashing senior tag

  Új Válasz 2014-10-24 20:37:00 #23914

  Ú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

  

  slashing

  senior tag

  Hátha másnak is hasznos lesz kép változtatása cellatartalom alapján:

  Csinálj egy üres diagrammot pl. oszlop

  majd a munkalaphoz rendeld a következő kódot:
  Jelen esetben csak az A1-et nézi

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 1 And Target.Column = 1 Then
  Munka1.ChartObjects("diagram 1").Select
  ActiveChart.ChartArea.Format.Fill.UserPicture ("c:\elérési út megadása \" & Target & ".jpg")
  Target.Select
  End If
  
  End Sub

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