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

• #11361 Delila_1 veterán balu999 #11359

  Új Válasz 2011-09-16 15:08:41 #11361

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

  Küldtem egy emailt füzettel, képekkel.

• #11360 Delila_1 veterán balu999 #11359

  Új Válasz 2011-09-16 14:34:43 #11360

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

  Lehetne jobb klikk, de az agyonvágná a gyorsmenüket.

  Meg lehet még csinálni, hogy beviszel egy érvényesítést, és abból választod ki, amihez képet szeretnél megjeleníteni.

• #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.

• #11357 Delila_1 veterán balu999 #11356

  Új Válasz 2011-09-16 10:23:24 #11357

  Ú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

  Laphoz rendelés

• #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?

• #11353 Delila_1 veterán balu999 #11352

  Új Válasz 2011-09-15 18:56:59 #11353

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

  Egy hiperhivatkozást tegyél az A1 cellába, ami képre mutat. Cellán jobb klikk, hiperhivatkozás, és kitallózod a képet.

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