কীভাবে আমি পাওয়ারপয়েন্ট 2007 এর একটি স্লাইডে একটি দস্তাবেজ সম্পত্তি (যেমন লেখকের নাম) sertোকাতে পারি? আমি জানি এটি মাইক্রোসফ্ট ওয়ার্ডে করা যেতে পারে তবে পাওয়ারপয়েন্টে এটি কীভাবে করা যায় তা খুঁজে পাচ্ছি না।
(ধারণাটি হ'ল একটি নথির সম্পত্তি সহ আপনি যেমন আলাদা আলাদা মাস্টার পৃষ্ঠাগুলি ব্যবহার করেন এমনকি সমস্ত স্লাইডে পাদলেখের বিষয়বস্তু পরিবর্তন করা সহজ। যদি আলাদা সমাধান থাকে তবে সেটিও ঠিক আছে))
উত্তর:
ওয়ার্ড এটি করতে পারে, পাওয়ারপয়েন্টটি পারে না। আফাইক, আপনার পিপিটিতে নথির বৈশিষ্ট্য থাকতে পারে তবে আপনি সেগুলি স্লাইডে inোকাতে পারবেন না। পাওয়ারপয়েন্টের জন্য একমাত্র আপডেটের ক্ষেত্র হ'ল তারিখ এবং স্লাইড নম্বর। যাইহোক, এটি অর্জনের জন্য ভিবিএতে কিছুটা সমাধান হতে পারে। আপনার স্ট্যাকওভারফ্লোতে এটি আপনার সুযোগ নিতে জিজ্ঞাসা করতে পারেন।
সমস্ত স্লাইডে ট্যাগ করা টেক্সট অবজেক্টগুলিতে নামযুক্ত বৈশিষ্ট্যগুলি রাখার জন্য একটি সাবরুটাইন লিখেছিলেন।
স্লাইড (গুলি) এ একটি ফাইল সম্পত্তি রাখতে। স্ট্রিং ধরে রাখতে একটি পাঠ্যবাক্স তৈরি করুন। বৈশিষ্ট্যগুলিতে / Alt পাঠ্যে সম্পত্তিটির নাম বর্গাকার বন্ধনীতে রাখুন।
তারপরে ম্যাক্রো কার্যকর করুন updateProperties()।
যেমন [title]- নথির শিরোনাম একাধিকতে আপডেট করার অনুমতি দেয়
দুটি বিশেষ ট্যাগ লেখা হয়েছে:
[copyright]একটি কপিরাইট স্ট্রিং ie োকানো হবে, যেমন © 1998-2013 পি। বুথ্রয়েড, এনআইএস অস্কেমেন[page] সম্পাদক ট্যাব থেকে স্লাইড নম্বর wouldোকানো হবে'সমস্ত স্লাইডে নথির বৈশিষ্ট্য অনুলিপি করুন
'(সি) 2013, এনআইএস অস্কেমেনের জন্য পি। বুথ্রয়েড
স্লাইড হিসাবে ধীর প্রসেসপেজ
উপ আপডেটপ্রাপ্তি ()
স্লাইড হিসাবে ম্লান পৃষ্ঠা
মাতাল নাম হিসাবে স্ট্রিং
সক্রিয় উপস্থাপনা (দস্তাবেজ) সমস্ত স্লাইড পার্স
প্রতিটি প্রসেসপেজ ইন অ্যাপ্লিকেশন Aঅ্যাকটিভপ্রেমেশনেশন.স্লাইডস
"" ["" সহ "AltText / শিরোনাম" ক্ষেত্র সহ টেক্সটবক্সের জন্য পৃষ্ঠার সমস্ত উপাদান স্ক্যান করুন
প্রসেসপেজ প্রতিটি আকারের জন্য। আকার
যদি বামে (obj.Title, 1) = "[" তবে
ডিম স্টার্ট, পূর্ণসংখ্যা হিসাবে পাঠান
'বর্গাকার বন্ধনীগুলির মধ্যে থেকে সম্পত্তি তোলা
sStart = 2
sEnd = InStr (2, obj.Title, "]")
প্রোপনাম = ট্রিম (মাঝারি (Ob.Title, sStart, sEnd - 2))
যদি obj.Type = msoTextBox তারপর
'অনুরোধকৃত মানটিতে পাঠ্য বাক্সটি সেট করুন
obj.TextFrame.TextRange.Text = getProperty (প্রোপাম, ইজেক্ট.টেক্সটফ্রেম.টেক্সট্রেঞ্জ.টেক্সট)
শেষ যদি
শেষ যদি
পরবর্তী 'আপত্তি
পরবর্তী পৃষ্ঠা
শেষ সাব
'নামকৃত দস্তাবেজ সম্পত্তি পান (defaultচ্ছিক ডিফল্ট সহ)
স্ট্রিং হিসাবে ফাংশন getProperty (প্রোপাম, স্ট্রিং হিসাবে ptionচ্ছিক Def)
'সম্পত্তি ডিফল্ট মান নির্ধারণ করে
getProperty = Def
দিম বুলিয়ান হিসাবে পাওয়া গেছে
পাওয়া = মিথ্যা
প্রোপনাম = এল কেস (প্রোপন নেম)
'কপিরাইট একটি উত্পন্ন সম্পত্তি
যদি প্রোপনাম = "কপিরাইট" থাকে তবে
দিম লেখক হিসাবে স্ট্রিং
ডিম স্ট্রিং অ্যাস স্ট্রিং
স্ট্রিং হিসাবে ধীর বছর
ধীরে ধীরে স্ট্রিং হিসাবে
'সমস্ত উপযুক্ত ভেরিয়েবল পান
লেখক = getProperty ("লেখক", "")
সংস্থা = getProperty ("সংস্থা", "")
YearFrom = getProperty ("তৈরি", "")
YearTo = ফর্ম্যাট (এখন (), "YYYY")
'কপিরাইট প্রতীক .োকান
getProperty = ক্র (169) + "
'কপিরাইট নোটিশের জন্য বছরের স্প্যান সংযুক্ত করুন
যদি বছর থেকে বছর থেকে তারপর
getProperty = getProperty + YearFrom + "-"
শেষ যদি
getProperty = getProperty + YearTo
'লেখক যুক্ত করুন
getProperty = getProperty + "" + লেখক
উভয় বিদ্যমান থাকলে লেখক / সংস্থার জন্য পৃথককারী যুক্ত করুন
যদি লেন (লেখক)> 0 এবং লেন (সংস্থা)> 0 তবে
getProperty = getProperty & ","
শেষ যদি
getProperty = getProperty এবং সংস্থা
'প্রক্রিয়াজাত করা হয়েছে, সুতরাং মানটি ফিরিয়ে দিন
পাওয়া = সত্য
শেষ যদি
'নথিতে স্লাইড নম্বর .োকান
যদি প্রোপনাম = "পৃষ্ঠা" হয় তবে
getProperty = processPage.SlideNumber
পাওয়া = সত্য
শেষ যদি
'উত্পন্ন নাম তৈরি হলে মানটি ফেরত দেয় return
যদি পাওয়া যায় তবে GoTo ret
'নামকৃত মানটির স্ট্যান্ডার্ড এমএস (ফাইল) বৈশিষ্ট্যের জন্য স্ক্যান করুন
প্রতিটি পি-তে অ্যাপ্লিকেশন Aঅ্যাকটিভপ্রেসেশন u বিল্টইন ডকুমেন্টপ্রোপার্টি
যদি LCase (p.Name) = প্রোপনাম তারপর
getProperty = p.Value
পাওয়া = সত্য
প্রস্থান করুন
শেষ যদি
পরবর্তী 'পি
'নামযুক্ত মানের কাস্টমাইজড বৈশিষ্ট্যগুলির জন্য স্ক্যান করুন
যদি পাওয়া যায় তবে GoTo ret
প্রতিটি পি-তে অ্যাপ্লিকেশন Aঅ্যাকটিভপ্রেসেশন C কাস্টম ডকুমেন্টপ্রোপার্টি
যদি LCase (p.Name) = প্রোপনাম তারপর
getProperty = p.Value
পাওয়া = সত্য
প্রস্থান করুন
শেষ যদি
পরবর্তী 'পি
RET:
ফাংশন শেষ
একটি কার্যপ্রণালী হ'ল কাস্টম বৈশিষ্ট্যগুলি ব্যবহার করা যা আপনি সহজেই "যেতে" পারেন (স্লাইডগুলির মাধ্যমে বিস্তৃত হওয়ার দরকার নেই)।
Http://msdn.itags.org/pPointPoint/4426/ থেকে :
- আপনি কোনও বুকমার্ক সেট করতে চান এমন আকৃতি বা পাঠ্য নির্বাচন করুন।
- ফাইল নির্বাচন করুন | বৈশিষ্ট্য ... এবং কাস্টম ট্যাবটি সক্রিয় করুন।
- বুকমার্কের জন্য একটি নাম লিখুন।
- 'সামগ্রীতে লিঙ্ক' টিক দিন। আপনি 'লিঙ্কে লিঙ্ক' টিক চিহ্ন দেওয়ার সময় সংলগ্ন ড্রপডাউন বাক্সে তালিকাভুক্ত মানটি আপনার নির্বাচনের একটি উল্লেখ।
- অ্যাড ক্লিক করুন।
- সম্পত্তি ডায়ালগটি বন্ধ করতে ওকে ক্লিক করুন।
এখন আপনি একটি বুকমার্ক তৈরি করেছেন, আপনি নীচে এটিতে লাফিয়ে উঠতে পারেন:
1. সম্পাদনা নির্বাচন করুন | গোটো প্রপার্টি ...
2. কথোপকথন থেকে সম্পত্তির নামটি ক্লিক করুন (এটি আপনি বুকমার্কে দিয়েছিলেন এমন নাম)।
৩. Go তে ক্লিক করুন।
"যান" ডায়ালগটি আপনাকে বুকমার্কগুলির একটি তালিকা উপস্থাপন করে যা আপনি ডাবল-ক্লিক করতে পারেন এবং আপনার পছন্দসই পাঠ্যবাক্সগুলিতে যান, যা সম্পাদনা / আটকানোতে প্রস্তুত।
পাওয়ারপয়েন্টে এটি করার সবচেয়ে সহজ উপায় (কমপক্ষে প্রতিটি স্লাইডে প্রদর্শিত হবে এমন মানগুলির জন্য) স্লাইড মাস্টারটি সম্পাদনা করা। লেখকের নাম সেখানে রাখুন।
(একটি সম্ভাব্য কারণ যা ওয়ার্ড আপনাকে দেয় এবং অন্য কেউই তা করতে দেয় না, তা হ'ল মাইক্রোসফ্টের বিভিন্ন দল খুব কমই একে অপরের সাথে কথা বলে ...)
পিটিপি 2019 সহ হ্যান্ডেল কোডের জন্য আপডেট: আমি সামনের জন্য সাম্প্রতিক রুটিনকে কিছুটা পরিবর্তন করেছি, কারণ হ'ল সামনের ব্যবহারকারীটির পক্ষে ডান মাউস বোতাম দ্বারা "বিকল্প বিকল্প" পরিবর্তন করা সহজ:
For Each ShapeObj In processPage.Shapes
If Left(ShapeObj.AlternativeText, 1) = "[" Then
'If Left(ShapeObj.Title, 1) = "[" Then
Dim sStart, sEnd As Integer
' extract property from between square brackets
sStart = 2
'sEnd = InStr(2, ShapeObj.Title, "]")
sEnd = InStr(2, ShapeObj.AlternativeText, "]")
'propname = Trim(Mid(ShapeObj.Title, sStart, sEnd - 2))
propname = Trim(Mid(ShapeObj.AlternativeText, sStart, sEnd - 2))
ShapeObj.TextFrame.TextRange.Text = getProperty(propname, ShapeObj.TextFrame.TextRange.Text)
End If
Next ' obj