ikikan
Altın Üye
- Katılım
- 3 Mart 2009
- Mesajlar
- 514
- Excel Vers. ve Dili
- excel 2003 tr
- Altın Üyelik Bitiş Tarihi
- 12.02.2026
Bu kod neden bu hatayı veriyor arkadaşlar.?
Kod:
Sub Obj_Sil_Ekle()
Dim tw As ThisWorkbook
Dim ws1 As Worksheet
dim r
Set tw = ThisWorkbook
Set ws1 = tw.Worksheets(tw.ActiveSheet.Name)
For r = 1 To ws1.OLEObjects.Count ' hata alınan kod satırı makroları ayrı sub() içine koydugumuzda hata almıyor nedeni nedir ?
ws1.OLEObjects(r).Delete
Next r
If ws1.OLEObjects.Count = 0 Then
Dim a , i
With ws1.OLEObjects
For i = 1 To 22
Set lbl = .Add(ClassType:="Forms.TextBox.1")
lbl.Top = lbl.Top * a
Debug.Print lbl.Name
Next i
End With
End If
End Sub