آیا راهی سراغ دارید که اگه یه شرط برقرار بشه تو یه سلول یه عکس خاص را نشون داد

[mhm_1371]

سلام
آیا راهی سراغ دارید که اگه یه شرط برقرار بشه تو یه سلول یه عکس خاص را نشون داد

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

یک فایل آماده از قبل در آرشیو داشتم برای شما ارسال میکنم
توضیحاتآن با سایر دوستان

[Amir Ghasemiyan]

با سلام

یک فایل آماده از قبل در آرشیو داشتم برای شما ارسال میکنم
توضیحاتآن با سایر دوستان

يك توضيح كوچيك در مورد اين فايل بدم:

در اين فايل از قابليت هاي بسيار قوي name manager استفاده شده
شما در يك سلول عكس مورد نظرتون رو وارد ميكنيد. از طريق name manager بهش اسم ميدين. حالا يك نام ديگه تعريف ميكنيد به اسم مثلا picture براي رفرنسش از تابع indirect استفاده ميكنيد
يك نمونه خيلي ساده ميذارم اميدوارم متوجه منظورم بشين

[generalsamad]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Range("A1") = "1") Then
ActiveSheet.Shapes("Picture 1").Visible = True
Else
ActiveSheet.Shapes("Picture 1").Visible = Flase
End If
End Sub 

در سلول A1 اگه مقدار 1 وارد بشه عکس نمایان میشه
فایل ضمیمه گردید