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

• #5627 Fire/SOUL/CD félisten jobbi #5625

  Új Válasz 2009-11-07 16:10:58 #5627

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jobbi #5625 üzenetére

  Hali!

  Bocs, csak nagyon rossz valamiért a netem, a forráskódot már nem tudtam beilleszteni...

  Munkafüzet1

  Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = False Then
  ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = True
  Call Timer_ON
  End If
  End Sub

  Module1

  Public Idozites As Double
  Sub Timer_ON()
  Idozites = Now + TimeSerial(0, 0, 5)
  Application.OnTime Idozites, "Tooltip_OFF", , True
  End Sub
  Sub Tooltip_OFF()
  ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = False
  End Sub

  Fire.

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