HERBERS Excel-Forum - die Beispiele

Thema: Elemente in Tabellenblatt Pac-Man-artig steuern

Home

Gruppe

Grafik

Problem

Wie kann ich Zeichnungselemente innerhalb eines Tabellenblattes so steuern, daß der Eindruck eines Pac-Man-Spiels entsteht?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: Tabelle1

Private Sub cmdEnde_Click()
   Set PacMan = Nothing
   Set Vitamin = Nothing
   Application.OnKey "{right}"
   Application.OnKey "{left}"
   Application.OnKey "{up}"
   Application.OnKey "{down}"
End Sub

Private Sub cmdStart_Click()
   Set PacMan = ActiveSheet.Shapes("PacMan")
   Set Vitamin = ActiveSheet.Shapes("Vitamin")
   Schalter = False
   Tempo = 3
   PacMan.Fill.ForeColor.SchemeColor = 7
   PacMan.Top = 0
   PacMan.Left = 0
   Vitamin.Visible = True
   Application.OnKey "{right}", "ToRight"
   Application.OnKey "{left}", "ToLeft"
   Application.OnKey "{up}", "ToTop"
   Application.OnKey "{down}", "ToDown"
End Sub

StandardModule: basMain

Public PacMan As Shape
Public Vitamin As Shape
Public Schalter As Boolean
Public Tempo As Integer

Sub ToRight()
   With PacMan
      If .Left >= 300 Then
         Beep
         Exit Sub
      End If
      .Left = .Left + Tempo
   End With
   Call Pille
End Sub

Sub ToLeft()
   With PacMan
      .Left = .Left - Tempo
   End With
   Call Pille
End Sub

Sub ToTop()
   With PacMan
      .Top = .Top - Tempo
   End With
   Call Pille
End Sub

Sub ToDown()
   With PacMan
      If .Top >= 200 Then
         Beep
         Exit Sub
      End If
      .Top = .Top + Tempo
   End With
   Call Pille
End Sub

Sub Pille()
   Dim dblPac As Double
   Dim dblVit As Double
   If Schalter = False Then
      If Abs(PacMan.Left - Vitamin.Left) < 13 And Abs(PacMan.Top - Vitamin.Top) < 13 Then
         Schalter = True
         Vitamin.Visible = msoFalse
         PacMan.Fill.ForeColor.SchemeColor = 12
         Tempo = 5
      Else
         Schalter = False
      End If
   End If
End Sub

Sub VitaminZeigen()
   ActiveSheet.Shapes("Vitamin").Visible = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Grafik und Ansicht

Formular Steuerelement bei "geschützer Ansicht" VBA und geschützte Ansicht
Hilfe Laufzeitfehler wegen benutzerdef. Ansicht Jahresgrafik
Grafik - Linie nach unten, Kriterien links Grafik auf Position bringen
Viele Grafiken mit gleicher Größe einfügen Excel Grafiken nur schwarz/weiss
Grafik drucken Grafik nach Change in Exceltabelle laden
Bereich als Grafik speichern Grafiken kopieren
OT: Exploreransicht Text und Grafik in Fusszeile
Grafik in der Kopfzeile - OHNE PFADANGABE Grafik, Datenbeschriftung
Linie in einer Grafik ansprechen Grafik positionieren
Linien-Säulen auf zwei Achsen - Grafik Grafik in Zelle einfügen, wie?
mehrere Grafiken aus derselben Pivot Symbolleistenansicht beim Userformaufruf
Grafik anzeigen - evtl. Reihenfolge ändern? Grafikobjekt nach Zelleingabe anpassen
Dateiansicht Grafik in Zellen - Sparklines
Grafik Option Explicit zusweisen Benutzerdefinierte Ansicht nach Blattschutz
Grafik bei Nullen nicht weiterführen Benutzerdefinierte Ansichten trotz Blattschutz
Makro bei Rechtsklick auf Grafik Kontextmenü Grafik
Grafikgröße nach Hyperlink festlegen Grafik Drehmoment Leistung
Grafiken mit Säuledarstellung Dynamische Grafik/Diagramm
Bildschirmansicht optimieren Beschriftung bei Bubble-Grafik
gestapelte Säulengrafik Dynamischer Datenbereich bei Grafiken
Grafik Schwellenwert in Excel-Grafik einfügen?
wechselnde grafiken abhängig von wert einblenden Grafik-Spezial
Vorschaugrafik Grafikformat
Grafik in Tabelle, abhängig von Zellinhalt Grafikprogramm über Excel legen
Grafik in XLS-Kopfzeile im PPT darstellen Ansicht wie in Excel XP