Verwenden Sie VBA, um PowerPoint AutoShape größer und kleiner zu machen

Der Wachstums- oder Schrumpfeffekt von PowerPoint erhöht und verringert ein Objekt direkt vor Ihren Augen langsam, was ein schöner Effekt ist. Aber was ist, wenn Sie nur auf das Objekt klicken und es ändern, vergrößern oder verkleinern möchten? PowerPoint bietet dafür keine Animation, aber Sie können es trotzdem mit ein wenig VBA-Magie tun.

Die Technik zum Erhöhen und Verringern der Größe einer AutoForm ist einfach. Am schwierigsten ist es, zu entscheiden, um wie viel Ihr Objekt wachsen oder schrumpfen soll. In diesem Beispiel werde ich zwei Prozeduren bereitstellen - eine, die die Größe eines Objekts erhöht, und eine zweite, die dasselbe Objekt verkleinert. Klicken Sie einmal, die Form ist größer, klicken Sie erneut und sie ist kleiner.

Zunächst müssen Sie eine AutoForm in eine leere Folie einfügen. Verwenden Sie einfach eine beliebige Grundform. Starten Sie dann Visual Basic per Editor (VBE), indem Sie Alt + F11 drücken. Öffnen Sie in der VBE ein Modul, indem Sie im Menü Einfügen die Option Modul auswählen, und geben Sie den folgenden Code ein:

 Sub GrowShape (myShape als Form) 
 'Erhöhen Sie die Größe des angeklickten Objekts. 
 myShape.Height = myShape.Height * 1.5 
 myShape.Width = myShape.Width * 1.5 
 myShape.ActionSettings (ppMouseClick) .Run = "ShrinkShape" 
 'Objekt zentrieren. 
 Mit ActivePresentation.PageSetup 
 myShape.Left = (.SlideWidth \ 2) - (myShape.Width \ 2) 
 myShape.Top = (.SlideHeight \ 2) - (myShape.Height \ 2) 
 Ende mit 
 End Sub 
 Sub ShrinkShape (myShape As Shape) 
 'Verringern Sie die Größe des angeklickten Objekts. 
 myShape.Height = myShape.Height / 1.5 
 myShape.Width = myShape.Width / 1.5 
 myShape.ActionSettings (ppMouseClick) .Run = "GrowShape" 
 'Objekt zentrieren. 
 Mit ActivePresentation.PageSetup 
 myShape.Left = (.SlideWidth \ 2) - (myShape.Width \ 2) 
 myShape.Top = (.SlideHeight \ 2) - (myShape.Height \ 2) 
 Ende mit 
 End Sub 

Jetzt müssen Sie die Prozeduren wie folgt mit dem Klicken auf die AutoForm verbinden:

  1. Klicken Sie auf die Registerkarte Einfügen. Klicken Sie in der Gruppe Links auf die Option Aktion. Wählen Sie in PowerPoint 2003 im Menü Einfügen die Option Hyperlink.
  2. Klicken Sie im daraufhin angezeigten Dialogfeld auf die Option Makro ausführen.
  3. Wählen Sie in der Dropdown-Liste dieser Option GrowShape aus. (Sie können je nach Originalgröße der Form eines der Makros auswählen.)
  4. OK klicken.

Jetzt können Sie die Show starten, indem Sie F5 drücken, um zu sehen, wie es funktioniert. Zunächst zeigt PowerPoint die ursprüngliche Form an. Klicken Sie darauf, um die Größe zu erhöhen. Stellen Sie sicher, dass Sie auf die Form und nicht auf die Folie klicken. (Wenn Sie zur nächsten Folie wechseln, wissen Sie, dass Sie nicht auf die Form geklickt haben.)

Durch Klicken auf die Form wird die gerade verknüpfte GrowShape-Prozedur ausgeführt. Dieser Vorgang erhöht die Breite und Höhe um die Hälfte. In der nächsten Zeile wird die Mausklickaktion der Form auf ShrinkShape zurückgesetzt. Wenn Sie erneut auf die Form klicken, wird ShrinkShape ausgeführt, wodurch die Größe des Objekts verringert wird. Beide Prozeduren enthalten denselben With-Block, der die Form nach dem Ändern der Größe zentriert.

Diese beiden Verfahren sind allgemein genug, um fast jede Form zu handhaben. Die herunterladbare Demo enthält drei verschiedene Formen, die alle mit denselben Prozeduren verknüpft sind. Sie sollten es gründlich testen, um sicherzustellen, dass die vergrößerte Größe natürlich auf die Folie passt. Sie können die Vergrößerungs- und Verkleinerungsabmessungen an Ihre Bedürfnisse anpassen. Das Zentrieren der Größe der Größe ist einfach. Ein Offset erfordert etwas mehr Arbeit.

© Copyright 2020 | mobilegn.com