Döngü ile Sayfadaki nesneleri renklendirme ve boyutlandırma

[Mdemir63]

Ekteki dosyada Sayfadaki TextBox ve ComboBox ları Renklendirmek ve boyutlarını buton ile otomatik nasıl yapabilirim?

 

[ÖmerBey]

Merhaba,
İnceleyiniz...

Sub KOD()
For Each obj In ActiveSheet.OLEObjects
    With obj
        If TypeName(.Object) = "TextBox" Or TypeName(.Object) = "ComboBox" Then
            .Left = 100
            .Width = 100
            .Height = 25
            x = x + 1
            .Top = x * 30
            .Object.BackColor = vbRed
        End If
    End With
Next
End Sub

 

[Mdemir63]

Sayın @ÖmerBey hocam çok teşekkür ederim.
Ellerinize sağlık.

Saygılar

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...