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

• #11358 Delila_1 veterán balu999 #11356

  Új Válasz 2011-09-16 10:32:26 #11358

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

  Több kép esetén beszúrod a több képet, beállítod a méretüket, elhelyezed.

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

  A Case kezdetű sorokban azt adod meg, hogy melyik cellára akarsz duplán kattintani, az alatta lévő sorokban pedig azt, melyik kép jelenjen meg - tűnjön el a duplaklikkre.
  A sort folytathatod az End Select sorig.

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