Powerpoint 2010清除所有格式 [英] Powerpoint 2010 Clear all formatting

问题描述

我正在尝试找到"清除所有格式"的VBA代码Powerpoint 2010中的按钮。另一个线程表明"Selection.ClearFormatting"。是解决方案，但无论我做什么，我都无法工作。在
中没有描述对象模型参考。

问候

Roger

解决方案

我不知道你的意思是什么写的"Clear  所有格式"

这是一个更改所有幻灯片中字体的代码。

 Sub zmiana_czcionki_w_PPS（）
'来自VBATools.pl的MVP OShon 
 Dim shp As Shape，sl& 
。对于SL = 1至ActivePresentation.Slides.Count 
。对于每一个SHP在ActivePresentation.Slides（SL）.Shapes 
在错误继续下一步
 shp.TextFrame.TextRange.Font。 name =" Arial" 
下一个
下一个sl 
 End Sub 

Modyf该码到您&NBSP; 。目的的 < /跨度>

I'm trying to find the VBA-code for the "Clear all formatting" button in Powerpoint 2010. Another thread suggests that "Selection.ClearFormatting" is the solution but I can't get that to work no matter what I do. It's not described in the Object Model reference.

Regards

Roger

解决方案

I do not know what you mean writing "Clear all formatting"

That is a code to change font in all slides.

Sub zmiana_czcionki_w_PPS()
'MVP OShon from VBATools.pl
Dim shp As Shape, sl&
For sl = 1 To ActivePresentation.Slides.Count
 For Each shp In ActivePresentation.Slides(sl).Shapes
   On Error Resume Next
   shp.TextFrame.TextRange.Font.name = "Arial"
 Next
Next sl
End Sub

Modyf that code to your purposes.

这篇关于Powerpoint 2010清除所有格式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！