ဤဆောင်းပါးတွင်၊ သင်၏ Word document ရှိ ပုံများကို inline ပုံများအဖြစ်သို့ ပြောင်းလဲရန် နည်းလမ်း 3 ခုကို တင်ပြပါမည်။
သင်သိထားသည့်အတိုင်း၊ ကျွန်ုပ်တို့သည် ပုံတစ်ပုံကို Word စာရွက်စာတမ်းတစ်ခုတွင် ထည့်သွင်းသည့်အခါတိုင်း၊ ၎င်းသည် ပုံသေအားဖြင့် "စာသားနှင့်အညီ" ထုပ်ပိုးသည့်ပုံစံကို ယူသည်။ ဤနည်းအားဖြင့် ပုံတစ်ပုံကို ကြီးမားသော ဇာတ်ကောင်အဖြစ် မှတ်ယူကြပြီး ၎င်းကို ကလစ်ဆွဲခြင်းဖြင့် ရွေ့လျားရန် ခက်ခဲစေသည်။ ထို့ကြောင့်၊ ၎င်းတို့၏တည်နေရာများကို အလွယ်တကူချိန်ညှိရန်အတွက် ဤ inline ပုံများကို ရေပေါ်ပုံများအဖြစ် ပြောင်းလဲရန် လိုအပ်ပါသည်။
အမြဲလိုလို၊ သင့်အတွက် နည်းလမ်း 3 ခုရှိသည်။
နည်းလမ်း 1- ပုံတစ်ပုံ၏ Wrapping ပုံစံကို ကိုယ်တိုင်ပြောင်းပါ။
- ပထမဦးစွာ၊ ပုံပေါ်တွင် right click နှိပ်ပြီး contextual menu ရှိ "Wrap Text" option မှ cursor ကိုရွှေ့ပါ။
- ထို့နောက် "စာသားနှင့်အညီ" မှလွဲ၍ အခြားစတိုင်ကိုရွေးချယ်ပါ။ ထို့နောက် ပုံကို သင်နှစ်သက်သည့်နေရာသို့ ဆွဲယူနိုင်မည်ဖြစ်သည်။
နည်းလမ်း 2- ပုံသေပုံစံကို ပြောင်းပါ။
အထက်တွင်ဖော်ပြခဲ့သည့်အတိုင်း၊ ပုံသေထုပ်ပိုးမှုပုံစံကို "စာသားနှင့်အညီ" တွင်သတ်မှတ်ထားသည်။ သို့သော်၊ အောက်ပါအဆင့်များဖြင့် ပုံများမထည့်မီ configuration ကို သင်မွမ်းမံနိုင်သည်။
- စတင်ရန်အတွက် “File” tab ကို နှိပ်ပြီးနောက် “Options” command ကို နှိပ်ပြီး “Word Options” dialog box ကို ရေးပါ။
- ထို့နောက် ဘယ်ဘက်ကော်လံရှိ “အဆင့်မြင့်” ကိုနှိပ်ပါ။
- "ဖြတ်ပါ၊ ကူးယူပြီး ကူးထည့်ပါ" အပိုင်းသို့ ရွှေ့ပြီး "ပုံကို ထည့်သွင်း/ကူးထည့်ပါ" ရွေးစရာကို ရှာပါ။
- ထုပ်ပိုးမှုပုံစံကို ရွေးချယ်ရန် drop-down ခလုတ်ကို နှိပ်ပါ။
- နောက်ဆုံးအနေနှင့် အနည်းဆုံးတော့ ဆက်တင်အသစ်ကိုသိမ်းရန် "OK" ကိုနှိပ်ပါ။
အနာဂတ်တွင် ထည့်သွင်းထားသော ပုံများအားလုံးသည် ရေပေါ်ထုပ်ပိုးမှုပုံစံကို အသုံးပြုပါမည်။
နည်းလမ်း 3- VBA မှတစ်ဆင့် ပုံများစွာ၏ ထုပ်ပိုးမှုပုံစံကို ပြောင်းလဲပါ။
- အစပိုင်းမှာ VBA editor ကိုစတင်ဖို့ "Alt+ F11" ကိုနှိပ်လိုက်ပါ။
- ထို့နောက် "Normal" ကိုနှိပ်ပြီး "Normal" ပရောဂျက်သို့သွားပါ။
- ထို့နောက် မီနူးဘားပေါ်ရှိ “ထည့်သွင်းရန်” တက်ဘ်ကို နှိပ်ပြီး drop-down မီနူးရှိ “Module” ကို ရွေးချယ်ပါ။
- ယခု တည်းဖြတ်သူ၏ ညာဘက်ခြမ်းရှိ coding space ကိုထုတ်ရန် module အသစ်ကို နှစ်ချက်နှိပ်ပါ။
- အောက်ဖော်ပြပါ မက်ခရိုကို ထိုနေရာတွင် ကူးထည့်ပါ။
Sub ChangeInLineWithTextPicToFloatingPic()
Dim objDoc As Document
Dim objInLineShape As InlineShape
Dim objShape As Shape
Set objDoc = ActiveDocument
With objDoc
For Each objInLineShape In .InlineShapes
objInLineShape.ConvertToShape
Next objInLineShape
For Each objShape In .Shapes
objShape.Select
Selection.ShapeRange.WrapFormat.Type = wdWrapBehind
Next objShape
End With
End Sub
- နောက်ဆုံးအနေနဲ့ "Run" ကိုနှိပ်ပါ သို့မဟုတ် "F5" ကိုနှိပ်ပါ။
မှတ်စု:
ဤ macro သည် လက်ရှိ စာရွက်စာတမ်းရှိ ပုံအားလုံးကို ရေပေါ်ပုံများအဖြစ် ပြောင်းလဲပြီး ၎င်းတို့ကို "Behind Text" စတိုင်ဖြင့် သတ်မှတ်ပေးပါမည်။ ၎င်းတို့ကို အခြားစတိုင်လ်ဖြင့် ဖော်မတ်လုပ်ရန် လိုအပ်ပါက၊ ကုဒ်လိုင်း “Selection.ShapeRange.WrapFormat.Type = wdWrapBehind” တွင် ကိန်းသေကို ပြောင်းလိုက်ပါ။ အသေးစိတ်စာရင်းကောက်ယူရန်အတွက် ဤလင့်ခ်တွင် ဝင်ရောက်ကြည့်ရှုနိုင်ပါသည်။ https://docs.microsoft.com/en-us/office/vba/api/Word.WdWrapType
Backups ကိစ္စ
ကာကွယ်ခြင်းတစ်အောင်စသည် ကုသခြင်းတစ်ပေါင်တန်သည်ဟု ဆိုပါသည်။ ပြီးနောက် ဖိုင်များကို ကယ်တင်ရန် နည်းလမ်းများ ရှာဖွေနိုင်သော်လည်း၊ စကားလုံး ဖောက်ပြန်မှုအမြဲတမ်း နောက်ကျလွန်းတယ်လို့ ထင်ရပါတယ်။ အကောင်းဆုံးကတော့ backup တွေယူတာလိုမျိုး ကြိုတင်ကာကွယ်မှုတွေ လုပ်ဖို့ပါပဲ။ အဲဒါတွေကို အဆင်သင့်ကိုင်ထားရင် ဒေတာဆုံးရှုံးမှာကို မစိုးရိမ်ဘဲ လုပ်ဆောင်ဖို့ ပိုအဆင်ပြေပါလိမ့်မယ်။
စာရေးသူနိဒါန်း:
Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ အကျင့်ပျက် xls နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com




