مگان یک گزارش ماهانه دارد که در اکسل ایجاد می کند. او بیشتر گزارش ها را خودکار کرده است، به جز یک مشکل آزاردهنده که باید به صورت دستی آن را حل کند. این گزارش شامل چهار نمودار دایره ای است که برای نشان دادن برخی مقادیر از گزارش استفاده می شود. اندازه هر نمودار دایره ای کمی متفاوت است و کار دستی این است که مگان باید همه آنها را یک اندازه بسازد. او می خواهد هر یک از آنها 5 سانتی متر مربع باشد و دوست دارد راهی برای حذف سختی های دستی قالب بندی آنها در هر ماه وجود داشته باشد.
دلیل اینکه اندازه هر یک از نمودارهای دایره ای کمی متفاوت است این است که وقتی نموداری را با تنظیمات پیش فرض ایجاد می کنید، اکسل تصمیم می گیرد که بتواند اندازه نمودار را به دلخواه تنظیم کند. این اندازه می تواند به عوامل مختلفی مانند فضای موجود، اندازه برچسب، تعداد نقاط داده و غیره بستگی داشته باشد. یکی از راه های افزایش شانس اینکه هر نمودار هم اندازه باشد این است که اولین نمودار خود را ایجاد کنید و سپس از Ctrl+C و Ctrl+C استفاده کنید. Ctrl+V برای کپی کردن نمودار سه بار دیگر. هر کدام باید یکسان باشند و سپس می توانید محدوده داده های منعکس شده در نمودارها را طوری تنظیم کنید که محدوده های مورد نظر را نشان دهند.
اگر کپی و چسباندن نمودارها عملی نیست (به عنوان مثال، اگر نمودارها توسط ماکروها ایجاد شده باشند)، ممکن است علاقه مند باشید که فقط از یک ماکرو سریع برای تنظیم اندازه همه نمودارها در کاربرگ استفاده کنید. ماکرو زیر از هر نمودار عبور می کند و ویژگی های Height و Width را روی 5 سانتی متر تنظیم می کند.
Sub AdjChartSizes()
Dim cht As ChartObject
For Each cht In ActiveSheet.ChartObjects
cht.Chart.ChartArea.AutoScaleFont = False
cht.Height = Application.CentimetersToPoints(5)
cht.Width = Application.CentimetersToPoints(5)
Next cht
End Sub
