Vba 我想更改幻灯片中的所有形状边框

我给了这个循环，让它去寻找每个形状

Dim oSh As Shape

For i =1 To 5

但似乎没有正常工作

With oSh
.Fill.Visible = False
.Line.BackColor.RGB = RGB(255, 255, 0)
Set oSh = Nothing
End With
Next i

更改此项：

End Sub

为此，假设您要使用当前选定的幻灯片：

With oSh
.Fill.Visible = False
.Line.BackColor.RGB = RGB(255, 255, 0)
Set oSh = Nothing
End With

---

您还可以删除对变量i所做的任何操作，因为您没有将其用于任何操作。

堆栈溢出用于特定的编程问题，而不是推测性建议。请将您的查询发布到或超级用户。我认为您的帖子中的代码区域搞乱了，如果您能提供一个示例，说明您的数据看起来如何，这将有助于回答问题我想立即更改所有形状框边框线颜色和圆度，在一张幻灯片内的所有形状中，我不确定它是否有效，但您可以尝试在一系列单元格上更改这些属性，如range（“A1:B5”），而且您的代码不正确，因为oSh从未分配给任何内容。它在选择时出错-找不到方法或数据成员。我已经在slideSorry上选择了一些形状。。。我的错。航空代码！见上面的编辑版本。Rindberg你能把你的测试工作文件发给我吗？我在一个文件中测试了代码，复制/粘贴到这里，然后删除了这个文件。但见上面的最新版本；我把它变成了一个独立的子程序。

Sub ChangeTheShapes()
' Make sure you select one or more
' slides (in the thumbnail pane or slide sorter)
' before running this.

    Dim osh As Shape
    Dim oSl As Slide
    
    ' in case a shape doesn't have a fill
    On Error Resume Next
    
    For Each oSl In ActiveWindow.Selection.SlideRange
        For Each osh In oSl.Shapes
            With osh
              .Fill.Visible = False
              .Line.BackColor.RGB = RGB(255, 255, 0)
            End With
        Next   ' Shape
    Next 'slide
    
End Sub