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

• #5566 Delila_1 Topikgazda ALbeeeee #5557

  Új Válasz 2009-10-28 05:55:59 #5566

  Ú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

  Topikgazda

  válasz ALbeeeee #5557 üzenetére

  A két ellipszis gombként való alkalmazása:
  Objektumon jobb klikk, makróhozzárendelés. Megjelenik a párbeszéd ablak, és felajánlja az EllipszisN_Kattintáskor nevű makrót. Rögzítés, és minden más nélkül rögzítés vége. Ugyanez a másik objektumnál is. A két "üres" makróba másold be a lenti kettőt. Az első megjeleníti a Téglalap 4-et, a másik elrejti. Ezekhez már kell az "ActiveSheet.", mert a makrók nem a laphoz vannak rendelve, mint az előző. Elérése: Alt+F11, a bal oldali listán kiválasztod a füzeted nevét, ott a Modules-t, és abban a ModuleN-ben találod meg.

  Sub Ellipszis1_Kattintáskor()
  ActiveSheet.DrawingObjects("Téglalap 4").Visible = True
  End Sub
  
  Sub Ellipszis2_Kattintáskor()
  ActiveSheet.DrawingObjects("Téglalap 4").Visible = False
  End Sub

  Az érvényesítés szövegei nálam egy fájlnál elmásztak, mindig más helyen jelentek meg, azért nem ajánlottam. Többet tettem egy lapra, és mindegyik ott jelent meg, ahova az utolsót helyeztem.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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