One-bond electromotive force ()
Active window. view . paste special(pppasteenhanced metafile)
Active window. selection . shape range . ungroup . ungroup . select
Active window. selection . shape range(msoAutoShape)。 delete
Active window. Selection. Shape range. Reorganization
End joint
Please click to enter a picture description.
If there is no developer tab, click File → Options → Customize Ribbon → Main Tab → Check Developers → OK. Then follow the first step to continue. If you already have a development tool tab, please skip this step.
Please click to enter a picture description.
After entering the VBA interface, click Insert → Module → Press Ctrl+V to paste the copied code into a new blank area → Close the window and return to the PPT interface.
Please click to enter a picture description.
Please click to enter a picture description.
Remember to copy the elements (whether AI or PPT) →Alt+F8 to open the macro → click "one-button EMF" to run. PS: The rectangular combination on the left is made of PPT, and the one on the right is processed by one key.
Please click to enter a picture description.
Please click to enter a picture description.
We can also put macros into the quick access toolbar in the following ways: File → Options → Select a command from the following location → Select a macro → Add a one-key EMF to the quick access toolbar on the right side of the dialog box. The macro appears on the quick access toolbar. Click this button after copying the material to import it with one click. Friends who often guide materials from AI to PPT may wish to try.
PS:
1. It is suggested to save the macro processing document in pptm format separately, open the imported material when using it, and then copy the processed material to the required ppt. This pptm is only used for transit.
2. Before using the key, please copy the element first, otherwise VBA will report an error. ?
3. The code has been correctly tested in PPT20 10 and PPT 20 13.
Please click to enter a picture description.