اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

افيدوني  

رابط هذا التعليق
شارك

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

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

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

تحياتي لكم

رابط هذا التعليق
شارك

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

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

مثلا

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه مصطفى محمود مصطفى
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information