Excel, Werkblad met Shockwave Flash Object

Situatie
Hoe verfraai ik mijn werkblad met een Shockwave Flash Object (.swf). Hier is in het kader van de beveiliging veel over te doen (geweest). Het is mogelijk een Flash animatie in een Excel werkblad in te voegen. Het beveiligingsnadeel is dat de animatie (inclusief actionscripts) bij het openen van de Excel werkmap kunnen worden uitgevoerd.

Uitwerking:
Op de beveiligingsaspecten zal ik niet verder ingaan. Ik ga ervan uit dat de flashanimatie zelfgemaakt is en/of geen dubieuze actionscripts bevat. Het bijgesloten voorbeeld behandeld het toevoegen van mijn eigen "TemplateBuilding logo" (logo.swf) in een Excel werkblad. Hiervoor zijn de volgende stappen doorlopen.

1. Open een nieuw Excel werkblad. Kies voor Beeld -> Werkbalken -> Werkset Besturingselementen. De betreffende werkset wordt getoond.
2. Klik op "Hamer/Tang". Hierna wordt een keuzelijst met in te voegen objectsoorten getoond.
3. Kies uit de lijst het element (object) "Shockwave Flash Object".
4. Klik en sleep het object en geef het het juiste formaat. Plaats het object op de gewenste plaats in de gewenste omvang.
5. Klik op de knop Eigenschappen in de Werkset Besturingselementen.
6. In het getoonde scherm selecteer de regel (Aangepast) en klik op de knop "…".
7. Vul in het dialoogscherm het volledige pad in (Movie URL) naar de in te voegen flash animatie.
8. Selecteer de keuzevakken "Embed" en "Play".
9. Deselecteer het keuzevak "Loop".
10. Klik op OK en sluit het dialoogscherm.
11. Sla de Excel werkmap op en heropen deze. De Flash animatie zal worden afgespeeld en de eventuele actionscripts gestart.

N.B. ** Soms blijkt de eigenschap "Play" van de flash animatie elke keer te worden uitgezet. Het is dan nodig om bij het opstarten van de van de werkmap ervoor te zorgen dat de eigenschap van de animatie via VBA wordt "aangezet". Hiervoor dient een module in  VBA te worden aangemaakt waarin de volgende procedure moet worden gekopieerd.

Option Explicit

Sub Auto_Open()
   wbShockWaveFlash.ShockwaveFlash1.Playing = True
End Sub

Waarbij "ShockwaveFlash1" de naam is van het ingevoegde object.

Hieronder is het voorbeeld met het TempateBuilding logo te downloaden.

Ga naar onderstaande link om het excel sjabloon "ShockwaveVoorbeeld" te downloaden

Download ShockWaveVoorbeeld.xls (gezipped)