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

• #16191 Delila_1 veterán Töki bácsi #16189

  Új Válasz 2013-01-14 16:12:28 #16191

  Ú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 Töki bácsi #16189 üzenetére

  Több kép válogatásához feltettem ide egy fájlt. A rar-ban lévő képeket tedd a C meghajtón a Képek mappába a próbához, utána a Munka2 lapon írd át az útvonalakat és fájlneveket a saját képeidhez.

• #16190 lappy őstag Töki bácsi #16189

  Új Válasz 2013-01-14 16:03:47 #16190

  Ú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

  

  lappy

  őstag

  válasz Töki bácsi #16189 üzenetére

  A laphoz kell rendelned ezt a rövid makrót: lapfülön jobb klikk, kód megjelenítése, a jobb oldalon kapott üres lapra másold be.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
  If Target = 1 Then
  ActiveSheet.Shapes("Picture 1").Visible = True
  ActiveSheet.Shapes("Picture 2").Visible = False
  End If
  If Target = 2 Then
  ActiveSheet.Shapes("Picture 1").Visible = False
  ActiveSheet.Shapes("Picture 2").Visible = True
  End If
  End If
  End Sub

  A "Picture 1" és "Picture 2" nevében a számot írd át a saját képeid sorszámára.

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