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

• #11355 Delila_1 veterán balu999 #11354

  Új Válasz 2011-09-16 10:14:19 #11355

  Ú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 balu999 #11354 üzenetére

  Szúrd be a képet, tedd a megfelelő helyre, állítsd be az ideális méretet.

  A laphoz kell rendelned az alábbi makrót.
  Az A1 cellára duplán klikkelve eltűnik, újabb duplaklikkre láthatóvá válik a kép.

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Address = "$A$1" Then
  If ActiveSheet.Shapes("Picture 1").Visible = True Then
  ActiveSheet.Shapes("Picture 1").Visible = False
  Else
  ActiveSheet.Shapes("Picture 1").Visible = True
  End If
  End If
  End Sub

  Erre gondoltál?

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