ppt Slide and textbox selection macros - textbox

Question

I want to make a PowerPoint macro. This is a macro that selects with textbox slide number, left, top.
'for example
Sub test1()
ActivePresentation.Slides(1).Select
with Left:=-300, Top:=100
End With
Dim TBox1
TBox1 = ActiveWindow.Selection.TextRange.Text
MsgBox (TBox13) '----error
End Sub
'select text box

Answer 1

Here's some sample code that'll do what you want.
Rather than make it specific to your question, I wrote something more general-purpose that you can use to find any shape at any position on any slide you like.
Option Explicit
Sub AddTestTextbox()
' Use this to quickly add a text box to test with
' at the right coordinates
Dim oSh As Shape
With ActivePresentation.Slides(1)
Set oSh = .Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 100, 200, 100)
oSh.TextFrame.TextRange.Text = "Some random text to test with"
End With
End Sub
Sub Test()
Dim oSh As Shape
Set oSh = FindShapeAt(ActivePresentation.Slides(1), 300, 100)
If Not oSh Is Nothing Then
If oSh.HasTextFrame Then
If oSh.TextFrame.HasText Then
MsgBox oSh.TextFrame.TextRange.Text
End If
End If
End If
End Sub
Function FindShapeAt(oSl As Slide, sngLeft As Single, sngTop As Single) As Shape
Dim oSh As Shape
For Each oSh In oSl.Shapes
If oSh.Left = sngLeft Then
If oSh.Top = sngTop Then
Set FindShapeAt = oSh
Exit Function
End If
End If
Next
End Function