VBA Powerpoint для удаления TextBox

Question

Я хочу удалить три TextBox, которые находятся на первом слайде. Я написал этот код, но он не работает! Это мой код:

Sub deleteTextBox() 
Dim osld As Slide 
Dim oShp As Shape 
Dim oShp1 As Shape 
Dim oShp2 As Shape 
Set osld = ActivePresentation.Slides(1) 
For Each oShp In osld.Shapes 
If oShp.HasTextFrame Then 
If oShp.Left = 20 And oShp.Top = 150 Then 
oShp.Delete 
End If 
End If 
Next oShp 
For Each oShp1 In osld.Shapes 
If oShp1.HasTextFrame Then 
If oShp1.Left = 20 And oShp1.Top = 200 Then 
oShp1.Delete 
End If 
End If 
Next oShp1 
For Each oShp2 In osld.Shapes 
If oShp2.HasTextFrame Then 
If oShp2.Left = 35 And oShp2.Top = 490 Then 
oShp2.Delete 
End If 
End If 
Next oShp2 
End Sub 

Спасибо за вашу помощь

Answer 1

Ваши формы, расположенные ТОЧНО согласно значениям в вас коде. Вы можете проверить, выбрав их по очереди и введя в ближайшем окне:

?ActiveWindow.Selection.ShapeRange(1).Left 

?ActiveWindow.Selection.ShapeRange(1).Top 

Кроме того, вы можете оптимизировать код с помощью цикла через форму разы и оценить все условия 3 позиционирующих только один раз на каждой форме.