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

• #18610 Delila_1 veterán dobri320 #18608

  Új Válasz 2013-07-25 15:23:25 #18610

  Ú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 dobri320 #18608 üzenetére

  A laphoz kell rendelned a makrót. A képnek Kép1 nevet adtam, és a B1 cellára kattintva jelenik meg, más cellát kijelölve eltűnik.
  A Kép1 helyett tehetsz be alakzatot, és akkor annak a nevét írd be a helyére.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$B$1" Then
  ActiveSheet.Shapes("Kép1").Visible = True
  Else
  ActiveSheet.Shapes("Kép1").Visible = False
  End If
  End Sub

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