कुछ पीपीटी फ़ाइल में अंदर कुछ भी नहीं के साथ कई टेक्स्ट बॉक्स हैं। एक समय में सभी रिक्त पाठ बॉक्स कैसे हटाएं?
इसके अलावा, उन खाली टेक्स्ट बॉक्स में न केवल एक फाइल का एक पेज होता है।
इसके अलावा, उन खाली टेक्स्ट बॉक्स में न केवल एक फाइल का एक पेज होता है।
जवाबों:
PowerPoint में केवल खाली टेक्स्ट बॉक्स को हटाने का कोई सीधा तरीका नहीं है, लेकिन आप इसके बजाय मैक्रो का उपयोग कर सकते हैं।
उप RemoveTextboxes ()
डिम स्लाइडटॉच स्लाइड के रूप में
इंटीजर के रूप में डिम शेपइंडेक्स
ActivePresentation.Slides में प्रत्येक SlideToCheck के लिए
ShapeIndex के लिए = SlideToCheck.Shapes.Count to 1 Step -1
If SlideToCheck.Shapes(ShapeIndex).Type = msoTextBox And _ Not SlideToCheck.Shapes(ShapeIndex).TextFrame.HasText ThenSlideToCheck.Shapes (ShapeIndex) .Delete
अगर अंत
आगे
आगे
अंत उप
PowerPoint में वापस जाएं, डेवलपर टैब पर जाएं (नीचे डेवलपर टैब सक्रिय करें), मैक्रोज़ दबाएं, RemoveTextboxes () का चयन करें और रन पर क्लिक करें।
किया हुआ! यह आपके PowerPoint प्रस्तुति से सभी खाली टेक्स्ट बॉक्स को अलग कर देगा।
डेवलपर TAB कैसे बनाते हैं