powerpoint-vba

So I know how to name a textbox, or a like object in PowerPoint with VB, but I was wondering if there was a way to name objects through the Ribbon (PowerPoint 2007). For instance, if I add a text box onto a slide, is there a way to assign it a name (sort of like the properties window in access, or the textbox in Excel 2003 at the top left side where you can enter the name)? Basically so I can reference it in code later; without having to use code to name each and every object i add after the fact. Perhaps an easier way through the Ribbon? Todd Main Yes. Click on the object (textbox, shape, etc

Sub OO() Dim oPPApp As Object, oPPPrsn As Object, oPPSlide As Object Dim oPPShape As Object Dim FlName As String '~~> Change this to the relevant file FlName = "C:\Users\lich_\Documents\test.pptx" '~~> Establish an PowerPoint application object On Error Resume Next Set oPPApp = GetObject(, "PowerPoint.Application") If Err.Number <> 0 Then Set oPPApp = CreateObject("PowerPoint.Application") End If Err.Clear On Error GoTo 0 oPPApp.Visible = True Set oPPPrsn = oPPApp.Presentations.Open(FlName, WithWindow:=msoFalse) Set oPPSlide = oPPPrsn.Slides(2) With oPPSlide.Shapes("Chart1").Chart.ChartData

I am working on one project. In that I made one custom theme which includes one master slide and may layouts. so basically i want to apply particular layout to specific slides. So is there any way to do it by programmatically. like : activepresentation.Slides(1).Layout="layoutname" I know above code is wrong but i want something like this to call particular layout by its name. for your information my layout name is "Title without Client Logo". Thanks ActivePresentation.Slides(1).CustomLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(x) where x is the index into the layouts