"Pre-treat" the shape with this, do whatever's necessary, then "Un-treat" it with a companion routine that tests to see if the text = and sets it back to "" if so, leaves it alone otherwise. To install a new font, go to your Control Panel and click Appearance and Rationalization. Choose the fonts from the dropdown as desired. Text = ' or some other lunatic string not likely to be found in nature Click on the Font option under the Paragraph section. In PPT2003, as you've seen, you need to add text to the cell for the formatting to "take" (which seriously slows things down, unfortunately).īecause there are other instances in PPT automation where you may need to temporarily fill in text then delete it, you might want to write a more general routine that you can pass a shape to. Note: Any changes you make in Slide Master view affect all the slides. You dont have to choose from the pre-defined font pairs on the menu choose Customize Fonts at the bottom of the menu to select your own fonts. Select the font you want to use for all the slides in the presentation. For demo purposes, I'm working with the currently selected table substitute any other reference to the table as oTbl: Dim oTbl As Table On the Slide Master tab, click the Fonts drop-down menu.
In PPT 2010, this works w/o having to enter text into the cells (vba, but should be easy enough to translate).
0 kommentar(er)
