sayfaya label oluşturma

[hımmmmmmmm]

slmlar ... office 2007

set S=Sheets("Sayfa1")
   
FOR I=1 TO 10
S.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
     DisplayAsIcon:=False, Left:=10, Top:=10, Width:=50, Height:=100) _
     .Select
NEXT I

bu yazılı macro sayfa1 e 10 tane (active x) label oluşturur.. bu 100 de olabilir 500 de...
oluşturulan bu (active x) labellerin, döngü içinde caption ve borderstyl ine nasıl bir kot ile hükmedilir... bu renkde olabilir başka bir özellikde...

controls denedim yemedi... shapes denedim yemedi...

sayfa çalışmasında macro; label sayfaya sürüklendiğinde macrosunu yazıyor ama özelliklerin macrosunu yazmıyor...
bu diğer nesneler içinde geçerli

form üzerinde aynı işlemler gayet güzel yapılıyor...
sayfaya gelince neden olmadı...
macro; sayfa için bu konuda kısıtlımı kalıyor...

 

[Muzaffer Ali]

Aşağıdaki şekilde yapabilirsiniz

    Dim lbl As New OLEObject
    Set S = Sheets("Sayfa1")
       
    For i = 1 To 10
    Set lbl = S.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
         DisplayAsIcon:=False, Left:=10, Top:=10, Width:=50, Height:=100)
         lbl.Object.Caption = "yeni metin " & i
         lbl.Object.BorderStyle = 1
    Next i

 

[hımmmmmmmm]

çoook teşekkür... çok işime yaradı...

 

[machool]

Lütfen olumlu yada olumsuz cevaplayın...

Hocam daha önce bana bir çok konuda yardımcı olmuştunuz.Tekrar teşekkürler.Ama son yaptığınız çalışmada çok küçük bir hata yüzünden kullanamıyorum söz konusu exceli.Size defalarca ulaşmaya çalıştım ama netice alamadım.Lütfen bu konuda bir cevap verin.Eğer yardımcı olmak istemiyorsanız "Meşgulum" demeniz yeterli.Teşekkürler....