إختفاء أزرار؟؟

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

عندى ملف به عدة شيتات وفي احد الشيتات ازرار للماكروات ولكن اختفت الازرار عن الانظار وحاولت ادراج ازرار بجديدة نفس الاسم للأزرار السابقة البرنامج لا يقبلها وبحث عنها في الشيت لم اجدها

هل هناك مكان نستطيع ايجادها من خلاله كما في تسمية النطاقات

افيدوني  

[مصطفى محمود مصطفى]

وعليكم السلام

نعم تجدها في نفس الشيت لكن باماكن مبعثرة ابحث عنها عن طريق الذهاب الى اخر خلية بالتدريج

تحياتي

[إيهاب عبد الحميد]

 

[مصطفى محمود مصطفى]

رائع استاذ ايهاب وفقكم الله

لكن كيف نستدل عليه انا وضعت احد الاشكال باخر خلية وقام بتحديده لكن لم يذهب لمكانه

هل من طريقه عندما اجده اجعل التحديد يظهر امامي اي نذهب الى مكانه لنستدل عليه

تحياتي لكم

[إيهاب عبد الحميد]

أخي الكريم يمكن عمل كود لتحريك الغير ظاهر امامك لكي يظهر لك في أول الصفحة 

Sub Movshps()
  Dim R As Range
  Set R = Range("C2:E10")
  With ActiveSheet.Shapes("Oval 1")
    .Top = R.Top
    .Left = R.Left
     End With
End Sub
 

   لاحظ انني وضعت اسم الشيبس التي اريد تحريكها وهي هنا 

Oval 1

ويمكن ايضا ان تغير الاسم سواء زرار أو شيبس 

يعني ممكن تستبدلها ب

Button 1

مثلا

[مصطفى محمود مصطفى]

رائع استاذ ايهاب وفقكم الله وحفظكم

كود اكثر من رائع يعمل بشكل ممتاز

ولي استفسار كيف اجمع اكثر من شكل او زر في امر واحد لتحريكها معا. هل اضع فارزة بين اسم واخر  ام هناك طريقة اخرى

لكم تحياتي ووافر احترامي

تم تعديل ديسمبر 11, 2018 بواسطه مصطفى محمود مصطفى

[إيهاب عبد الحميد]

وجزاكم بالمثل أخي الكريم

يكون تحديد أكثر من عنصر 
 With ActiveSheet.Shapes.Range(Array("Rectangle 2", "Oval 3", "Rectangle 1"))
   

بدلا من 

  With ActiveSheet.Shapes("Oval 1")

[مصطفى محمود مصطفى]

شكرا لكم استاذ ايهاب 

معلومات قيمة ورائعة جزاكم الله خيرا

لكم وافر احترامي وتقديري