برش گرافیک در یک ماکرو

Question

جان اغلب عکس های صفحه را در یک ورک بوک اکسل قرار می دهد. او همیشه نیاز دارد که این گرافیک ها را از هر چهار طرف با مقدار مشخصی برش دهد. از آنجایی که او این کار را اغلب انجام می دهد، به این فکر می کند که آیا راهی برای انجام آسان آن در یک ماکرو وجود دارد یا خیر.

راه های مختلفی وجود دارد که می توانید این مشکل را برطرف کنید و همه آنها شامل استفاده از ماکروها هستند. (هیچ دستور داخلی برای انجام چنین کاری وجود ندارد.) اگر به سادگی می خواهید گرافیکی را که قبلاً اضافه کرده اید برش دهید، می توانید این کار را با استفاده از یک ماکرو ساده مانند زیر انجام دهید:

Sub CropPicture()
    With Selection.ShapeRange.PictureFormat
        .CropLeft = 200
        .CropTop = 300
        .CropBottom = 50
        .CropRight = 100
    End With
End Sub

البته شما باید مقادیر را برای برش مشخص کنید. این مقادیر در نقاط مشخص می شوند و نسبت به اندازه اصلی تصویر هستند. بنابراین، به عنوان مثال، اگر قبلاً تصویر انتخاب شده را تا 150 درصد اندازه اصلی خود کوچک کرده باشید، و سپس این ماکرو را اجرا کنید، تمام تنظیمات برش 1.5 برابر مقادیر واقعی آنها به نظر می رسد. (بنابراین، برای مثال، برش سمت چپ به نظر می رسد 300 پیکسل باشد، نه 200 پیکسل.)

ماکرو را می توان به راحتی تغییر داد تا چسباندن را انجام دهد و سپس به طور خودکار تصویر را برش دهد. این کار با افزودن یک دستور paste تک خطی انجام می شود:

Sub PasteCropPicture()
    ActiveSheet.Paste
    With Selection.ShapeRange.PictureFormat
        .CropLeft = 200
        .CropTop = 300
        .CropBottom = 50
        .CropRight = 100
    End With
End Sub

ماکرو فرض می کند که شما قبلاً اسکرین شات را در کلیپ بورد کپی کرده اید. اگر بدون انجام این کار سعی کنید آن را اجرا کنید، ممکن است با خطا مواجه شوید.

هنگام اجرای یک ماکرو یک چیز دیگر نیز وجود دارد که باید به خاطر بسپارید: وقتی این کار تمام شد، به نظر می رسد که تصویر شما از موقعیت اصلی خود در کاربرگ جابجا شده است. این به این دلیل رخ می دهد که برش از هر چهار طرف، گوشه ظاهری سمت چپ تصویر را به مکان دیگری تغییر می دهد. در صورت تمایل می توانید با افزودن کدی که گوشه سمت چپ بالای تصویر را "به یاد می آورد" این را در ماکرو خود جبران کنید:

Sub CropPositionPicture()
    Dim MyShape As ShapeRange
    Dim LeftSide As Single
    Dim TopSide As Single

    Set MyShape = Selection.ShapeRange
    LeftSide = MyShape.Left
    TopSide = MyShape.Top

    With MyShape.PictureFormat
        .CropLeft = 200
        .CropTop = 300
        .CropBottom = 50
        .CropRight = 100
    End With

    MyShape.Left = LeftSide
    MyShape.Top = TopSide
End Sub

البته، صرف نظر از اینکه چگونه این کار را انتخاب می کنید، یک نکته را باید به خاطر بسپارید. برش بر اندازه تصویر تأثیر نمی گذارد. بنابراین، برای مثال، اگر یک اسکرین شات را طوری برش دهید که فقط نیمی از صفحه قابل مشاهده باشد، تمام بخش های «نامرئی» عکس صفحه همچنان آنجا هستند و فضا را اشغال می کنند. این به اندازه کلی ورک بوک شما می افزاید، گاهی اوقات به طرز شگفت انگیزی.

تنها راه حل این مشکل این است که هیچ گرافیکی را در اکسل برش ندهید . در عوض، تصویر را در یک برنامه گرافیکی پردازش کنید، تصویر پردازش شده خود را ذخیره کنید و سپس آن تصویر پردازش شده را در کاربرگ قرار دهید. نتیجه کار کتاب های کوچک تر است که به معنای ذخیره و بارگیری سریع تر است.