Hassle-free live chat software re-imagined for business growth. 2 users, always free.
'next 4 lines define TextBox(TB) position and dimensions in terms of those of slide TBPosFromSlideLeftMargin = 0.1 'TB start at 10% of slide width from left to right TBPosFromSlideTopMargin = 0.8 'TB start at 80% of slide height from top to bottom TBpercentageOfSlideWidth = 0.8 'TB is 80% of the slide width TBpercentageOfSlideHeight = 0.2 'TB is 20% of the slide height Set oDes = oSld.Shapes.AddTextbox( msoTextOrientationHorizontal, _ ActivePresentation. PageSetup.SlideWidth * TBPosFromSlideLeftMargin, _ ActivePresentation. PageSetup.SlideHeight * TBPosFromSlideTopMargin, _ ActivePresentation. PageSetup.SlideWidth * TBpercentageOfSlideWidth, _ ActivePresentation. PageSetup.SlideHeight * TBpercentageOfSlideHeight) With oDes .TextFrame.TextRange.Text = picDesc(1) End With
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!