Cal با کادرهای متنی و پیکان های سرگردان در سراسر صفحه مشکل دارد. او نمی‌پرسد آیا راهی برای قفل کردن لنگرها به‌عنوان پیش‌فرض وجود دارد، نه اینکه لنگر برای هر جعبه متن و شکل ترسیمی که اضافه می‌کند قفل شود.
پاسخ کوتاه این است که هیچ راهی وجود ندارد. دلیل آن این است که قفل کردن لنگر زمانی که اکثر مردم اشیاء را در اولین جایی که در یک سند قرار می‌دهند، لنگر نمی‌گذارند، چندان منطقی نیست. به عنوان مثال، در حالی که ممکن است بتوانید محل قرارگیری یک جعبه متن را به درستی قضاوت کنید (و بنابراین باید آن را از همان ابتدا لنگر بیاندازید)، این احتمال وجود دارد که فلش های شما پس از اضافه شدن باید جابجا و تنظیم شوند. لنگر انداختن آنها تا زمانی که آن حرکت و تنظیم اتفاق نیفتد، فایده چندانی ندارد.
بهترین کاری که می توانید انجام دهید این است که یک ماکرو ایجاد کنید که اشیاء را برای شما لنگر یا لغو کند. سپس ماکرو را می توان به نوار ابزار دسترسی سریع یا یک کلید میانبر اضافه کرد تا بتوانید یک شی را انتخاب کنید و به سادگی تغییر دهید که آیا آن لنگر است یا نه. این باعث صرفه جویی در زمان فوق العاده ای در هنگام داشتن اشیاء زیاد می شود، زیرا نیازی به زحمت نمایش کادرهای محاوره ای و تغییر تنظیمات لنگر ندارید.
Sub ToggleShapeAnchor() If Selection.Type = wdSelectionShape Then For Each Shape In Selection.ShapeRange Shape.LockAnchor = Not Shape.LockAnchor Next End If End Sub
توجه داشته باشید که این یک "تغییر" واقعی است، به این معنی که اگر شکل (یا اشکال) انتخاب شده قبلاً لنگر انداخته شده باشند، اجرای ماکرو آنها را از حالت لنگر خارج می کند. اگر می خواهید ماکرو فقط لنگر بیاورد و بدون لنگر زدن، از این ماکرو استفاده کنید.
Sub AnchorShapes() If Selection.Type = wdSelectionShape Then For Each Shape In Selection.ShapeRange Shape.LockAnchor = True Next End If End Sub
