Excel VBA animált zászló megjelenítése
2019-12-22T10:00:22+01:00
2019-12-27T06:16:16+01:00
2022-08-11T17:05:30+02:00
amatore
Sziasztok,

Az Excelben különböző országok animált zászlóját szeretném megjeleníteni aszerint, hogy melyik ország a kiválasztott. Az ország kiválasztása option button használatával történik.
Találta egy megoldást a neten egy amerikai zászló lobogtatására, de ez userformon jelenik meg. Én viszont nem userformon akarom, hanem csak simán az Excel munkalapon lobogjon folyamatosan a kiválasztott ország zászlaja. Még a különböző országok zászlóját megoldom (legalábbis remélem), de a makró module-ba való átrakása nem megy. Próbálkoztam, de nem sikerült megoldanom.
Esetleg valaki nem tudja, hogy hogyan kellene megoldani? Csatoltam a neten talált fájlt.
Köszönöm előre is a segítséget.
És Kellemes Ünnepeket!

Üdv,
Mutasd a teljes hozzászólást!
Csatolt állomány
Szia!
Ezt az egy zászlót a következők szerint "lobogtathatod":
Egy modulba másold be a következőket:

Option Explicit Dim Running As Boolean Sub ShowFlag() Running = Not Running Call Animation End Sub Private Sub Animation() Dim x As Integer Dim MyTimer As Double DoEvents x = 1 MyTimer = Timer Do On Error Resume Next Sheets("Sheet1").Shapes("Téglalap1").Fill.UserPicture (ThisWorkbook.Path & "\Images\Animation\Flag" & x & ".Gif") On Error GoTo 0 Do Loop While Timer - MyTimer < 0.07 If x = 8 Then x = 1 Else x = x + 1 End If MyTimer = Timer DoEvents Loop While Running End Sub
A munkalapon csinálj egy téglalapot a zászlónak megfelelő méretben. Ezután felteszel egy parancsgombot, ahhoz hozzárendeled az első makrót.
A második makróban a Téglalap1 nevet és a munkalap nevét átírod az általad használtra.
A parancsgomb váltókapcsolóként működik: első kattintásra elindul a lobogás, ismételt kattintásra leáll.
Ha több zászlód van, akkor a képfájloknak megfelelően változtatnod kell a fájlok neveit - legjobb változóba tenni.

Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd