كيف تعيّن الموضع المطلق لمخطط في Excel؟
عادةً ما نضع المخطط بشكل عشوائي عند إنشائه أو تحريكه في Excel. لكن في بعض الحالات الخاصة، قد ترغب في تحديد موضع دقيق له—مثل أن يبدأ من الخلية A1، أو أن يظل محصورًا ضمن النطاق A1:D5، أو غير ذلك. هنا، سأقدّم لك كود VBA لتعيين الموضع المطلق للمخطط في Excel.
تطبيق VBA لتعيين الموضع المطلق لمخطط في Excel
على سبيل المثال، قمتَ بإنشاء مخطط ووضعتَه عشوائيًا في ورقة العمل كما يظهر في لقطة الشاشة أدناه. والآن، سأقدّم لك كود VBA لتحريك المخطط بسرعة إلى موضع دقيق ومطلق بكل سهولة.
1. حدد المخطط الذي تريد تعيين موضعه المطلق، ثم اضغط على مفاتيحAlt+F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية، ثم الصق كود VBA أدناه في نافذة الوحدة النمطية الجديدة.
VBA: تعيين الموضع المطلق لمخطط في Excel
Sub Test()
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:J13")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub
ملاحظة: في الكود أعلاه، يشيرSet xRg = Range("D1:J13") إلى تحديد موقع المخطط داخل النطاق D1:J13. يمكنك تعديل هذا النطاق حسب احتياجاتك.
3. اضغط على مفتاحF5 أو انقر فوق زرتشغيللتشغيل كود VBA هذا.
الآن سترى أن المخطط قد انتقل إلى الموضع الدقيق الذي حددته في كود VBA. راجع لقطة الشاشة:
أداة رائعة لتعيين الموضع المطلق لمخطط في Excel
إذا كان لديك Kutools لـ Excel مثبّتًا، فيمكنك استخدام أداة المخططات الرائعة الخاصة به –تعيين موضع مطلق للرسم البياني– لتحريك المخطط وتغيير حجمه ليتناسب بدقة مع نطاق محدود في Excel.
1. حدد المخطط الذي تريد تعيين موضع مطلق له، ثم انقر فوقKutools > المخططات > أدوات الرسم البياني > تعيين موضع مطلق للرسم البياني.
2. في مربع الحوار الظاهر، حدد الموضع الذي تريد نقل المخطط إليه، ثم انقر فوق زرموافق.
الآن تم تحريك المخطط المحدد إلى الموضع المطلوب، وتغيير حجمه ليتناسب مع النطاق المحدد في آنٍ واحد. راجع لقطة الشاشة:
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل