Brug VBA til at gøre PowerPoint AutoShape større og mindre

PowerPoints voksende eller krympende effekt øges og formindskes langsomt et objekt lige foran dine øjne, hvilket er en dejlig effekt. Men hvad nu hvis du bare ønsker at klikke på objektet og presto chango, øge eller skrumpe det? PowerPoint tilbyder ikke en animation til det, men du kan stadig gøre det med lidt VBA-magi.

Teknikken til at øge og formindske størrelsen på en AutoShape er enkel. Den sværeste del er at beslutte, hvor meget du skal vokse eller krympe dit objekt. I dette eksempel giver jeg to procedurer - en, der øger størrelsen på et objekt og et sekund, der krymper det samme objekt. Klik en gang, formen er større, klik igen, og den er mindre.

Først skal du indsætte en AutoShape i et tomt lysbillede - bare brug enhver basisform. Start derefter Visual Basic by Editor (VBE) ved at trykke på Alt + F11. Åbn et modul i VBE ved at vælge Modul i menuen Indsæt, og indtast følgende kode:

 Sub GrowShape (myShape As Shape) 
 'Forøg størrelsen på det klikkede objekt. 
 myShape.Height = myShape.Height * 1.5 
 myShape.Width = myShape.Width * 1.5 
 myShape.ActionSettings (ppMouseClick) .Run = "ShrinkShape" 
 'Centerobjekt. 
 Med ActivePresentation.PageSetup 
 myShape.Left = (.SlideWidth \ 2) - (myShape.Width \ 2) 
 myShape.Top = (.SlideHeight \ 2) - (myShape.Height \ 2) 
 Slut med 
 Afslut under 
 Sub ShrinkShape (myShape As Shape) 
 'Reducer størrelsen på det klikkede objekt. 
 myShape.Height = myShape.Height / 1.5 
 myShape.Width = myShape.Width / 1.5 
 myShape.ActionSettings (ppMouseClick) .Run = "GrowShape" 
 'Centerobjekt. 
 Med ActivePresentation.PageSetup 
 myShape.Left = (.SlideWidth \ 2) - (myShape.Width \ 2) 
 myShape.Top = (.SlideHeight \ 2) - (myShape.Height \ 2) 
 Slut med 
 Afslut under 

Nu skal du forbinde procedurerne til at klikke på AutoShape som følger:

  1. Klik på fanen Indsæt. I gruppen Links skal du klikke på indstillingen Handling. I PowerPoint 2003 skal du vælge Hyperlink i menuen Indsæt.
  2. I den resulterende dialog skal du klikke på indstillingen Kør makro.
  3. Vælg GrowShape fra dropdown for denne indstilling. (Du kan vælge en af ​​makroerne, afhængigt af formens originale størrelse.)
  4. Klik på OK.

Nu er du klar til at køre showet ved at trykke på F5 for at se, hvordan det fungerer. Først viser PowerPoint den originale form. Klik på den for at øge størrelsen. Sørg for, at du klikker på formen og ikke på diaset. (Hvis du flytter til næste dias, ved du, at du ikke har klikket på formen.)

Ved at klikke på formen udføres GrowShape-proceduren, som du lige har linket til. Denne procedure øger bredden og højden med halvdelen. Den næste linje nulstiller formens museklik-handling til ShrinkShape. Hvis du klikker på formen igen, udføres ShrinkShape, hvilket formindsker størrelsen på objektet. Begge procedurer indeholder den samme With-blok, der centrerer formen efter størrelse.

Disse to procedurer er generiske nok til at håndtere mest enhver form. Den downloadbare demo indeholder tre forskellige former, der alle linker til det samme sæt procedurer. Du ønsker at teste det grundigt for at sikre dig, at den øgede størrelse selvfølgelig passer på dias. Du kan ændre stigningen og reducere dimensioner, så de passer til dine behov. Centrering af den ændrede størrelse er enkel; en forskydning kræver lidt mere arbejde.

© Copyright 2020 | mobilegn.com