ამ სტატიაში წარმოგიდგენთ 3 გზას, თუ როგორ უნდა შეცვალოთ ინლაინ სურათები თქვენს Word დოკუმენტში მცურავზე.
როგორც მოგეხსენებათ, როდესაც სურათს ვდებთ Word დოკუმენტში, ის ნაგულისხმევად იღებს "ტექსტთან შესაბამისობაში" შეფუთვის სტილს. ამგვარად, სურათი განიხილება, როგორც დიდი სიმბოლო, რაც გვაძნელებს მის გადაადგილებას უბრალოდ დაწკაპუნებით და გადათრევით. შესაბამისად, ჩვენ უნდა შევცვალოთ ეს ხაზოვანი სურათები მცურავზე, რათა ადვილად დავარეგულიროთ მათი მდებარეობა.
როგორც ყოველთვის, ჩვენ გვაქვს 3 მეთოდი, რომ აირჩიოთ.
მეთოდი 1: ხელით შეცვალეთ ერთი სურათის შეფუთვის სტილი
- უპირველეს ყოვლისა, დააწკაპუნეთ სურათზე მარჯვენა ღილაკით და გადაიტანეთ კურსორი კონტექსტუალურ მენიუში "Wrap Text" პარამეტრზე.
- შემდეგი, აირჩიეთ ნებისმიერი სტილი, გარდა "ტექსტთან შესაბამისობაში". შემდეგ თქვენ შეძლებთ სურათის გადატანას იქ, სადაც გსურთ.
მეთოდი 2: შეცვალეთ ნაგულისხმევი სტილი
როგორც ზემოთ აღინიშნა, ნაგულისხმევი შეფუთვის სტილი დაყენებულია „ტექსტთან შესაბამისობაში“. თუმცა, შეგიძლიათ შეცვალოთ კონფიგურაცია სურათების ჩასმამდე შემდეგი ნაბიჯებით.
- სtarთუ გამორთეთ, დააწკაპუნეთ ჩანართზე „ფაილი“ და შემდეგ „ოფციები“ ბრძანება, რათა ჩაწეროთ „Word Options“ დიალოგური ფანჯარა.
- შემდეგ დააჭირეთ ღილაკს "Advanced" მარცხენა სვეტში.
- გადაახვიეთ „Cut, Copy and Paste“ ნაწილზე და იპოვეთ „Insert/Paste Picture as“ ვარიანტი.
- დააწკაპუნეთ ჩამოსაშლელ ღილაკზე შეფუთვის სტილის შესარჩევად.
- დაბოლოს, მაგრამ არანაკლებ მნიშვნელოვანია, დააწკაპუნეთ "OK" ახალი პარამეტრის შესანახად.
მომავალში ჩასმული ყველა სურათი მიიღებს მცურავი შეფუთვის სტილს.
მეთოდი 3: შეცვალეთ მრავალი სურათის შეფუთვის სტილი VBA-ს საშუალებით
- დასაწყისისთვის, დააჭირეთ "Alt+ F11" starVBA რედაქტორი.
- შემდეგი, გადადით "ნორმალური" პროექტზე "ნორმალური" დაწკაპუნებით.
- შემდეგ დააჭირეთ ღილაკს "ჩასმა" მენიუს ზოლში და აირჩიეთ "მოდული" ჩამოსაშლელ მენიუში.
- ახლა ორჯერ დააწკაპუნეთ ახალ მოდულზე, რათა გამოვიდეს კოდირების ადგილი რედაქტორის მარჯვენა მხარეს.
- ჩასვით ქვემოთ მოცემული მაკრო იქ:
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".
შენიშვნა:
ეს მაკრო შეცვლის აქტიურ დოკუმენტში არსებულ ყველა სურათს მცურავ სურათზე და დააყენებს მათ „ტექსტის უკან“ სტილში. თუ თქვენ გჭირდებათ მათი სხვა სტილით ფორმატირება, უბრალოდ შეცვალეთ მუდმივი კოდის სტრიქონში "Selection.ShapeRange.WrapFormat.Type = wdWrapBehind". დეტალური აღრიცხვისთვის შეგიძლიათ ეწვიოთ ამ ბმულს: https://docs.microsoft.com/en-us/office/vba/api/Word.WdWrapType
სარეზერვო ასლები მნიშვნელოვანია
როგორც ითქვა, ერთი უნცია პრევენცია ღირს ერთი ფუნტი განკურნება. თუმცა ჩვენ შეგვიძლია ვიპოვოთ ფაილების გადარჩენის გზები სიტყვების კორუფცია, ყოველთვის გვიან ჩანს. მost იდეალურია, რა თქმა უნდა, პრევენციული ზომების მიღება, როგორიცაა სარეზერვო ასლების მიღება. მათთან ერთად, თქვენ უფრო კომფორტულად იგრძნობთ მოქმედებებს მონაცემთა დაკარგვის გარეშე.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული xls მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად