كيفية تعيين موضع مطلق للرسم البياني في Excel؟
عادة ، قد نضع مخططًا بشكل عشوائي عند إنشائه أو نقله في Excel. ومع ذلك ، في بعض الحالات الخاصة ، قد ترغب في وضع المخطط في موضع دقيق ، مثل البدء في الخلية A1 ، أو البقاء في النطاق A1: D5 ، أو غير ذلك. هنا ، سأقدم VBA لتعيين الموضع المطلق للمخطط في Excel.
- قم بتطبيق VBA لتعيين الموضع المطلق للمخطط في Excel
- أداة رائعة لتعيين موضع مطلق للرسم البياني في Excel
قم بتطبيق VBA لتعيين الموضع المطلق للمخطط في Excel
على سبيل المثال ، قمت بإنشاء مخطط ووضعه عشوائيًا في ورقة العمل كما هو موضح أدناه. الآن سأقدم VBA لتحريك المخطط بسرعة إلى موضع دقيق ومطلق بسهولة.
1. حدد المخطط الذي ستحدد موضع الغفران له ، واضغط على قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
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
ملاحظات: في الكود أعلاه ، تعيين xRg = النطاق ("D1:J13") يعني نقل المخطط ووضعه في النطاق D1:J13. يمكنك تغيير النطاق حسب حاجتك.
3. صحافة F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا VBA.
الآن سترى أن المخطط قد تم نقله إلى الموضع الدقيق كما حددته في VBA. انظر لقطة الشاشة:
أداة رائعة لتعيين موضع مطلق للرسم البياني في Excel
إذا كان لديك Kutools for Excel مثبتا، فيمكنك تطبيق أداة الرسم البياني المذهلة – تعيين الموضع المطلق للرسم البياني لنقل مخطط وتغيير حجمه إلى نطاق محدد في Excel.
كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!
1. حدد الرسم البياني الذي ستقوم بتعيين الموضع المطلق له، ثم انقر فوق كوتولس > الرسوم البيانية > أدوات الرسم البياني > تعيين الموضع المطلق للرسم البياني.
2. في مربع الحوار المنبثق، حدد الموضع الذي ستنقل المخطط إليه، ثم انقر فوق Ok .
الآن يتم نقل المخطط المحدد إلى الموضع المحدد، ويتم تغيير حجمه إلى النطاق المحدد في وقت واحد. انظر لقطة الشاشة:
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!