على سبيل المثال ، قمت بإنشاء مخطط ووضعه عشوائيًا في ورقة العمل كما هو موضح أدناه. الآن سأقدم 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. انظر لقطة الشاشة:

إذا كان لديك Kutools for Excel مثبتا، فيمكنك تطبيق أداة الرسم البياني المذهلة – تعيين الموضع المطلق للرسم البياني لنقل مخطط وتغيير حجمه إلى نطاق محدد في Excel.

1. حدد الرسم البياني الذي ستقوم بتعيين الموضع المطلق له، ثم انقر فوق كوتولس > الرسوم البيانية > أدوات الرسم البياني > تعيين الموضع المطلق للرسم البياني.

2. في مربع الحوار المنبثق، حدد الموضع الذي ستنقل المخطط إليه، ثم انقر فوق Ok .

الآن يتم نقل المخطط المحدد إلى الموضع المحدد، ويتم تغيير حجمه إلى النطاق المحدد في وقت واحد. انظر لقطة الشاشة: