نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تدوير صورة استنادا إلى قيمة خلية في إكسيل؟

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

تدوير صورة استنادا إلى قيمة الخلية باستخدام شفرة الماكرو

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel - أفضل أداة إنتاجية للمكاتب ستحل معظم مشكلات Excel الخاصة بك
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في الشركة ؛ ميزات كاملة النسخة التجريبية المجانية من 60.

تدوير صورة استنادا إلى قيمة الخلية باستخدام شفرة الماكرو


يمكن أن يساعدك رمز ماكرو فقط على تدوير صورة استنادا إلى قيمة خلية في إكسيل.

1. اكتب قيمة في الخلية أكسنومكس سوف تدوير الصورة من قبل، ومن ثم تفعيل الصورة التي تريد تدوير.

2. صحافة ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة، وانقر فوق إدراج > وحدة لإدراج جديد فارغ وحدة. انظر لقطة الشاشة:
دوك تدوير الصورة عن طريق خلية شنومكس

3. الصق الرمز أدناه إلى وحدة ثم اضغط F5 لتشغيل التعليمات البرمجية. انظر لقطة الشاشة:

فبا: تدوير الصورة حسب قيمة الخلية

Sub RotateImage()
Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value
End Sub

دوك تدوير الصورة عن طريق خلية شنومكس
دوك تدوير الصورة عن طريق خلية شنومكس

في التعليمات البرمجية، أكسنومك هي الخلية التي تريد تدوير الصورة على أساس، يمكنك تغييره ما تحتاج إليه.


المواد النسبية:


Kutools لـ Excel - أفضل أداة إنتاجية في Office تزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 60.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Haley · 1 years ago
    This is what I want to do to an image, but I want it to rotate from the vertical position by however many degrees the cell states each time. However, say the cell says 30, it will rotate 30 degrees, but then if the cell value changes to 15, it will rotate 15 from the 30 position (45 from the vertical). I want it to rotate 15 from the vertical this time. Is there a way to do this?


    Thanks!
    • To post as a guest, your comment is unpublished.
      Andrew · 9 months ago
      Take the code from above:

      Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

      And modify it like so:

      Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value
    • To post as a guest, your comment is unpublished.
      Jon H. · 1 years ago
      Hey there, I have the same requirement too. Have you by chance figured out how to have the image rotate from "zero" every time?
      • To post as a guest, your comment is unpublished.
        Sunny · 1 years ago
        Sorry I have no idea about this problem. You can place your prolem in out forum, maybe someone can help you solve it. https://www.extendoffice.com/forum.html
        • To post as a guest, your comment is unpublished.
          Andrew · 9 months ago
          Take the code from above:

          Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

          And modify it like so:

          Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value