[حل شده] تغییررنگ اشکال

[sunstar]

سلام بر اساتید گرامی
آیا کدی وجود دارد که که منجر به تغییر یک شکل هندسی مثلاً یک rectangle شود و فضای داخل آن فرضاً اگر سفید است با اجرای کد به رنگ سیاه درآید.منتظر راهنمایی بزرگواران هستم.هزاران سپاس

[amir_ts]

با سلام
از این کد استفاده کنید.با تغیر عدد 8 رنگ های مختلف رو امتحان کنید.

[LEFT]Private Sub CommandButton1_Click()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Fill.ForeColor.SchemeColor = 8
Next sh
End Sub[/LEFT]

[sunstar]

سلام مجددو تشکرفراوان و ضمن عذرخواهی از سئوال مجدد
اگر در یک شیت دو شکل داشته باشیم و فرضا بخواهیم با اجرای کد ، یکی به رنگ سیا ه و دیگر ی به رنگ سفید ظاهر شود از کدام کد باید استفاده کنیم .ممنون و سپاس

[shamsololama]

با درود فراوان

جهت راحتی این کار میتوانید برای انتخاب رنگ هر شاپ بصورت جدا گانه با لیست باکس حق انتخاب هر شاپ را به کاربر بدهیم
در این فایل نمونه از لیست باکس هر شاپی که انتخاب کنیم و انتخاب رنگ از کادر رنگی یا وارد کردن عدد در تکست باکس می توانیم رنگ مورد نظر را انتخاب کنیم و شاپ را تغییر رنگ دهیم

فایل نمونه :

[amir_ts]

با سلام و تشکر از استاد گرامی جناب shamsololama بابت تکمیل موضوع اگر هر شکل رو نامگذاری کنید هم با این کد هم میتونید رنگ شکل مورد نظر را به دلخواه تغیر بدید.در این مثال test , tes نام اشکال میباشد.

[LEFT]Sub test()


With ActiveSheet
Shapes("test").Fill.ForeColor.SchemeColor = 6.
Shapes("tes").Fill.ForeColor.SchemeColor = 7.
End With
End Sub[/LEFT]

[sunstar]

سلام
روش ساده تری وجود نداره که از یوزرفرم و لیست باکس استفاده نشه؟

[sunstar]

از همه اساتید ممنون و سپاسگذارم