Metin Kutusu

[unfors]

tt = AYARLAR.TextBox9.Value

Sheets("deneme").Image1.Object.Picture = LoadPicture(tt)
Label1.Object.BackColor = URUN_SIPARIS_KAYIT.Image1.BackColor
Label1.Object.ForeColor = URUN_SIPARIS_KAYIT.Image2.BackColor

Sheets("deneme").Image2.Object.Picture = LoadPicture(tt)
Label2.Object.BackColor = URUN_SIPARIS_KAYIT.Image1.BackColor
Label2.Object.ForeColor = URUN_SIPARIS_KAYIT.Image2.BackColor

Sheets("deneme").Image3.Object.Picture = LoadPicture(tt)
Label3.Object.BackColor = URUN_SIPARIS_KAYIT.Image1.BackColor
Label3.Object.ForeColor = URUN_SIPARIS_KAYIT.Image2.BackColor
AYARLAR.TextBox19.Value

"Label"lar metin kutusu, "Image"ler ımage nesnesi.
Bu kod dizini 50'ye kadar devam ediyor."for" döngüsü ile yapmaya çalıştım yapamadım.Yardımcı oluranız sevinirim.

 

[PLİNT]

Merhaba
"Label" nesneleri sayfada ise

[SIZE="2"]tt = AYARLAR.TextBox9.Value
For a = 1 To 50
With Sheets("deneme")
 .OLEObjects("Image" & a).Object.Picture = LoadPicture(tt)
 .OLEObjects("Label" & a).Object.BackColor = URUN_SIPARIS_KAYIT.Image1.BackColor
 .OLEObjects("Label" & a).Object.ForeColor = URUN_SIPARIS_KAYIT.Image2.[COLOR="Blue"]BackColor[/COLOR]
 End With
Next

'AYARLAR.TextBox19.Value[/SIZE]

"Userform" üzerinde ise şöyle olabilir;

[SIZE="2"]tt = AYARLAR.TextBox9.Value
For a = 1 To 50
With Sheets("deneme")
 .OLEObjects("Image" & a).Object.Picture = LoadPicture(tt)
 End With
 Controls("Label" & a).Object.BackColor = URUN_SIPARIS_KAYIT.Image1.BackColor
 Controls("Label" & a).Object.ForeColor = URUN_SIPARIS_KAYIT.Image2.[COLOR="Blue"]BackColor[/COLOR]
Next
'AYARLAR.TextBox19.Value[/SIZE]

 

[unfors]

Teşekkür ederim.