একটি ওয়ার্ড ডকুমেন্টে হাজার হাজার জেপিজি চিত্র: আমি কীভাবে সেগুলিতে ফর্ম্যাট করতে পারি?

Question

অনুগ্রহ করে ধরুন আপনার কাছে মাইক্রোসফ্ট ওয়ার্ড 2007 ডকুমেন্ট রয়েছে: আপনি এটিতে সবেমাত্র হাজার হাজার জেপিইজি চিত্র সন্নিবেশ করেছেন।

প্রথম চিত্রের সাহায্যে আপনি ডান ক্লিক করুন, তারপরে ফর্ম্যাট চিত্র, তারপরে "পুনরায়" নির্বাচন করুন এবং তারপরে দ্বিতীয় সারির "কালার মোডস" এ "কালো এবং সাদা" নির্বাচন করুন।

অন্যান্য 999 জেপিইজি চিত্রগুলিকে একই "ফর্ম্যাট চিত্র" কমান্ড দেওয়ার প্রক্রিয়াটি আপনি কীভাবে স্বয়ংক্রিয় করতে পারেন?

আমি সবেমাত্র ফরমেট পেন্টার দিয়ে চেষ্টা করেছি, তবে আমার সাফল্য হয়নি।

কোন সংকেত সনাক্ত করুন?

এটি কোনও উত্তরগুলির সাথে অনুরূপ প্রশ্ন: http://thedailyreviewer.com/windowsapps/view/ formattting-all-pictures-in-a-word-docament-in-one-go-11962810

ধারাবাহিক বিন্যাসের জন্য আমি কীভাবে সমস্ত ছবি নির্বাচন করতে পারি, যাতে আমার সমস্ত শব্দ নথিতে সেগুলি একই রকম প্রদর্শিত হয়, উদাহরণস্বরূপ, তাদের সকলের একই পাঠ্য মোড়ানো মার্জিন থাকে, উদাহরণস্বরূপ ... এবং সমস্ত একই% আসল আকার? যদি শব্দটি আমাকে ছবিগুলির জন্য 'সমস্ত নির্বাচন করতে' দেয় না, আমি কি ছবিগুলির বিন্যাসটি অনুলিপি করতে পারি এবং তারপরে পাঠ্যের জন্য ব্যবহৃত ফর্ম্যাট ব্রাশের মতো এটি অন্য ছবিতে পেস্ট করতে পারি?

আপনার সদয় সহায়তার জন্য আগাম ধন্যবাদ

Answer 1

আপনি পারেন:

Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureGrayscale
Next

Comments

ঠিক আছে, তবে আমি গ্রেসকেলে নয়, "ব্ল্যাক অ্যান্ড হোয়াইট" এ যেতে চাই। আমি কীভাবে এটি অর্জন করতে পারি?

— আল্ট্রাকমিট

msoPictureBlackAndWhiteপরিবর্তে ব্যবহার করুন msoPictureGrayscaleতবে এটি সম্ভবত ভয়ঙ্কর দেখাবে - পুনরুদ্ধার বিকল্পটি গ্রেস্কেল ব্যবহার করে বলে মনে হচ্ছে

— অ্যালেক্স কে

আপনার সদয় পরামর্শের জন্য আপনাকে অনেক ধন্যবাদ। আমার মূল সমস্যাটি হ'ল: আমার কাছে একটি পিডিএফ একটি পিপিটি পিডিএফকে পিডিএফে রূপান্তরিত করা হয়েছে, একটি ভয়ঙ্কর সায়ান পটভূমি এবং কালো অক্ষর রয়েছে। আমি পিডিএফটিকে ১০০ টি জেপিজি ফাইলে রূপান্তর করেছি, আমি এগুলিকে একটি ওয়ার্ড ২০০ document নথিতে অন্তর্ভুক্ত করেছি এবং শেষ পর্যন্ত আমি এগুলি ব্ল্যাক_আ্যান্ড_ হোয়াইটে স্যুইচ করেছি, পটভূমি সরিয়ে এবং কেবল কালো অক্ষর রেখেছি। আপনার সদয় অবদানের জন্য অনেক ধন্যবাদ ;-)

— আলট্রা কমিট

আমার প্রশ্নটি স্ট্যাকওভারফ্লো থেকে সুপারউজারে স্থানান্তরিত হওয়ার পরে, আপনার উত্তরটি আবারও গ্রহণ করা দরকার ছিল, আলেক্স কে: এটি খুব আশ্চর্য বলে মনে হচ্ছে! আপনাকে আবার ধন্যবাদ ;-)

— আলট্রাকমিট

Answer 2

ঠিক আছে, অ্যালেক্স কে কে অনেক ধন্যবাদ, সমাধানটি নিম্নলিখিত:

Sub Macro1()
'
' Macro1 Macro
'
'
Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
  Pic.PictureFormat.ColorType = msoPictureBlackAndWhite
Next
End Sub

আমি অ্যালেক্স কে সমাধান গ্রহণ করেছি, কারণ তিনি সমস্যা সমাধানের সঠিক উপায় খুঁজে পেয়েছিলেন। ডান কীওয়ার্ডটি msoPictureGrayscale এর পরিবর্তে msoPictureBlackAndWhite।

অনেক ধন্যবাদ, অ্যালেক্স কে। ;-)

Comments

আপনি আপনার দ্বিতীয় মন্তব্যে যে বিবরণ যুক্ত করেছেন msoPictureBlackAndWhiteতা প্রদত্ত, সত্যই, সঠিক (আপনি সত্যই কালো এবং সাদা সাদা দেখতে চান)। জন্য সবচেয়ে ছবি, msoPictureGrayscalepreferrable, এবং যে মূল প্রশ্ন স্পষ্ট ছিল না। জমা দেওয়ার জন্য +1

— রোল্যান্ডটাম্বল