☰

在 PowerPoint 中选择所有行

tag-icon • tag-icon vba microsoft-powerpoint
在 PowerPoint 中选择所有行

我有一堆 PowerPoint 幻灯片需要重新格式化，并且我想找到一种方法来选择页面上的所有行 - 包括带箭头的行。

我发现这个帖子其中包括一些用于选择幻灯片上所有线条的 VBA，但它不会捕获带箭头的线条。我该如何更新此代码以抓取所有线条，包括带箭头的线条？

Sub getLines()

Dim oshp As Shape
Dim osld As Slide
On Error Resume Next
Set osld = ActiveWindow.Selection.SlideRange(1)
If Not osld Is Nothing Then
For Each oshp In osld.Shapes
If oshp.Type = msoLine Then oshp.Select Replace:=msoFalse
Next oshp
End If


End Sub

答案1

更新选择以包括msAutoShape以下msoLine内容：

Sub getLines()

Dim oshp As Shape
Dim osld As Slide
On Error Resume Next
Set osld = ActiveWindow.Selection.SlideRange(1)
If Not osld Is Nothing Then
For Each oshp In osld.Shapes
If (oshp.Type = msoLine Or oshp.Type = msoAutoShape) Then oshp.Select Replace:=msoFalse
Next oshp
End If

End Sub

我能够使用以下方法找出 VBA 形状类型这个宏它逐行浏览幻灯片上的每个形状，并在窗口中显示对象类型。超级有用！

相关内容