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

• #20248 Delila_1 veterán vigyori78 #20238

  Új Válasz 2014-01-29 09:12:58 #20248

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

  Első lépésként a gif-et szét kell szedned az alkotó rétegeire. Erre kiválóan alkalmas a PhotoShop. Az egyes rétegeket 1.gif, 2.gif, ... n.gif néven mentsd el egy könyvtárba.

  A lapodra az ActiveX vezérlők közül kiteszel egy képet, aminek hivatalból Image1 lesz a neve, amit megváltoztathaszt, és akkor a makróban is át kell írnod.
  Érdemes még egy gombot is kitenni, ami leállítja a "mozgás"-t. Nálam ez a gomb Kikapcs névre hallgat.
  Az én gifem 10 rétegből állt, a tied jóval többől, ennek megfelelően írd át az

  If x = 10 Then x = 1 Else x = x + 1

  sort. Az útvonalat is át kell írnod.

  A laphoz rendeld az alábbi két makrót.

  Private Sub Worksheet_Activate()
  Dim MyTimer As Double, x As Integer, utvonal As String
  
  bekapcs = True
  utvonal = "C:\Documents and Settings\Felhasználó\Dokumentumok\Képek\"
  DoEvents
  x = 1: MyTimer = Timer
  
  Do
  On Error Resume Next
  ActiveSheet.Image1.Picture = LoadPicture(ThisWorkbook.Path & utvonal & x & ".Gif")
  On Error GoTo 0
  
  Do
  Loop While Timer - MyTimer < 0.07
  
  If x = 10 Then x = 1 Else x = x + 1
  
  MyTimer = Timer
  DoEvents
  Loop While bekapcs = True
  End Sub

  Private Sub Kikapcs_Click()
  bekapcs = False
  End Sub

  Az Image1 tulajdonságainál beállíthatod, hogy ne legyen keret (BorderStyle=0-fmBorderStyleNone), ne legyen kitöltés (BackStyle=fmBackStyleTransparent), és még amit akarsz.

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