এই নিবন্ধে, আমরা আপনার ওয়ার্ড ডকুমেন্টে ছবিগুলিতে সীমানা যুক্ত করার 3টি দ্রুত পদ্ধতি নিয়ে আলোচনা করতে চাই।
কেন আমরা ছবিতে সীমানা প্রয়োগ করব? উত্তর সুস্পষ্ট। কিছু ছবি মূল বিষয়বস্তুর মতো অনেক বেশি, শব্দের ব্লকের একটি শট বলুন, যা আমরা সহজেই পাঠ্যের জন্য ভুল করতে পারি। অতএব, ছবিগুলিকে আলাদা করে তুলতে পাঠ্য বিষয়বস্তুগুলিকে আমরা আপনাকে দেখাতে যাচ্ছি নিম্নলিখিত 3টি পদ্ধতির উপযোগিতা লাভ করে৷
পদ্ধতি 1: একটি নথিতে একটি ছবিতে সীমানা যোগ করুন
- প্রথমত, নির্বাচন করতে একটি ছবিতে ক্লিক করুন।
- এরপরে "Picture Tool" এর অধীনে "Format" ট্যাবে ক্লিক করুন।
- তারপর "ছবির সীমানা" ক্লিক করুন এবং একটি রঙ চয়ন করুন।

পদ্ধতি 2: একটি নথিতে সমস্ত ছবিতে সীমানা যোগ করুন
পদ্ধতি 1 এ দেখানো হয়েছে, ম্যানুয়ালি ছবি একে একে পরিবর্তন করা আসলেই একটি দুর্দান্ত ধারণা নয়। প্রচেষ্টা সংরক্ষণ করার জন্য, ম্যাক্রো আপনার নেওয়া উচিত।
- শুরুতে, “ডেভেলপার” ট্যাবে ক্লিক করুন, তারপর VBA এডিটরটি দেখানোর জন্য “ভিজ্যুয়াল বেসিক”-এ ক্লিক করুন। যখন “ডেভেলপার” ট্যাবটি পাওয়া যাবে না, তখন এর পরিবর্তে কেবল “Alt+F11” চাপুন।
- তারপরে “সাধারণ” ক্লিক করুন।
- পরবর্তী "সন্নিবেশ" ট্যাবে ক্লিক করুন এবং এর মেনুতে "মডিউল" চয়ন করুন।
- ডানদিকে কোডিং এলাকা খুলতে নতুন মডিউলটিতে ডাবল ক্লিক করুন।
- এখন নিচের ম্যাক্রোটি সেখানে পেস্ট করুন:
Sub AddPictureBorders()
Dim objShape As Shape
Dim objInLineShape As InlineShape
Dim objDoc As Document
Set objDoc = ActiveDocument
With objDoc
For Each objInLineShape In .InlineShapes
With objInLineShape.Line
.Style = msoLineSingle
.ForeColor.RGB = RGB(0, 0, 0)
End With
Next
For Each objShape In .Shapes
objShape.Fill.Solid
With objShape.Line
.Style = msoLineSingle
.ForeColor.RGB = RGB(0, 0, 0)
End With
Next
End With
End Sub
- সর্বশেষে তবে সর্বনিম্ন নয়, "রান" বোতামটি ক্লিক করুন বা "F5" টিপুন।
পদ্ধতি 3: একাধিক নথিতে সমস্ত ছবিতে সীমানা যোগ করুন
যেহেতু আমরা একটি নথিতে ছবিগুলি মোকাবেলা করার জন্য একটি ম্যাক্রো লিখতে পারি, তাই একাধিক নথিতেও ছবিগুলি প্রক্রিয়া করার উপায় রয়েছে।
প্রথমত, আপনাকে সমস্ত কাঙ্ক্ষিত ডকুমেন্ট একই ডিরেক্টরির অধীনে গুছিয়ে নিতে হবে। তারপর, একটি ম্যাক্রো ইনস্টল ও রান করার জন্য উপরে দেখানো হুবহু একই ধাপগুলো অনুসরণ করুন, কিন্তু সেটিকে নিম্নলিখিতটি দিয়ে প্রতিস্থাপন করুন:
Sub AddPictureBordersInMultiDoc()
Dim objShape As Shape
Dim objInLineShape As InlineShape
Dim objDoc As Document
Dim strFile As String
Dim strFolder As String
Set objDoc = ActiveDocument
strFolder = "C:\Users\Public\Documents\New folder\"
strFile = Dir(strFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
With objDoc
For Each objInLineShape In .InlineShapes
With objInLineShape.Line
.Style = msoLineSingle
.ForeColor.RGB = RGB(0, 0, 0)
End With
Next
For Each objShape In .Shapes
objShape.Fill.Solid
With objShape.Line
.Style = msoLineSingle
.ForeColor.RGB = RGB(0, 0, 0)
End With
Next
End With
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
নোট:
- দ্য "সি:\ব্যবহারকারী\পাবলিক\নথি\নতুন ফোল্ডার\এই ম্যাক্রোতে নির্দেশিত পথ নির্দেশ করে যেখানে আপনি নথি সংরক্ষণ করেন। এবং শেষ যোগ করতে ভুলবেন না "\".
- আপনি পরিবর্তন করে সীমানা রঙ পরিবর্তন করতে পারেন আরজিবি মান.
ব্যাকআপ সম্পর্কে চিন্তা করার সময়
ব্যাকআপ কী করতে পারে, সে সম্পর্কে আমাদের বেশিরভাগই ভালোভাবে অবগত। বিপদের মুহূর্তে এটি আপনার জীবন রক্ষাকারী হতে পারে। শব্দ ক্ষতি. সুতরাং, আমরা মূল্যবান নথির ব্যাক আপ নিতে মিনিট সময় নেওয়ার প্রভাবকে কখনই হ্রাস করব না। যেমন, কেউ তার ডেটার নিরাপত্তার নিশ্চয়তা দিতে পারে না।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় ক্ষতিগ্রস্থ xlsx এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com



