[حل شده] شمارش لیبلها با دستور for

[Yaamahdi@1360]

سلام علیکم و رحمت الله-خسته نباشید.ببخشید من تعداد 200 لیبل دارم که قراره هرکدام از اونها نمونه ی امضای یکی از کارکنان باشه.من دستوری رو نوشتم ولی خطا میده.اگر ممکنه راهنمایی بفرمایید چطوری باید فرمول رو توی vba اصلاح کنم.ممنون از لطف شما.دستوری رو که توی وی بی ای نوشتم به این صورت هست :

for i=1 to 200
ThisWorkbook.Sheets(Sheet1.Name).Label(i).Picture = LoadPicture(ThisWorkbook.Path & "\pic" & ThisWorkbook.Sheets(Sheet1.Name).Range("C" & i).Value & "S.jpg")
next i

[/PHP]

[kazamie]

سلام این کد را امتحان کنید

Sub sdw()
For i = 1 To 200
ThisWorkbook.Sheets(Sheet1.Name).OLEObjects("label" & CStr(i)).Object.Picture = LoadPicture(ThisWorkbook.Path & "\pic" & ThisWorkbook.Sheets(Sheet1.Name).Range("C" & i).Value & "S.jpg")
Next i
End Sub

[Yaamahdi@1360]

سلام علیکم و رحمت الله-وقت بخیر-ممنون از جوابتون-بسیار عالی بود