Wie referenziere ich Text unter TextRange?

Question

Ich versuche, dieses Skript So zu debuggen ich habe, kann man Fehler, die ich nicht in der Vergangenheit erhalten:

Dim pptText As String 
pptText = Shape.TextFrame.TextRange 

Ich erhalte eine Fehlermeldung Objekt benötigt sagen, und wenn ich dies tun:

Dim pptText 
pptText = Shape.TextFrame.TextRange 

es wird ohne Fehler ausgeführt werden, aber PptText wird dann nicht auf den gewünschten Text festgelegt. Ich versuche, diesen Teil der Form abzuzugleichen (blau markiert) Ich will es „hee“ zurückzukehren: https://imgur.com/a/wxACT

I

Dim pptText 
pptText = Shape.TextFrame.TextRange.Text 

versucht habe, aber das ist wahrscheinlich ein lächerlicher Versuch, und tue nicht arbeiten. Ich habe keine Ahnung, was ich an diesem Punkt tun kann. Irgendwelche Hilfe geschätzt!

Answer 1

Sie haben nicht Ihren gesamten VBA-Code angezeigt, aber ich vermute, dass Ihr Verweis auf Shape in Ihrem Code den Fehler verursacht. 'Shape' kann nicht der Name Ihrer Variablen sein, die auf den Objekttyp Shape verweist, da es sich um ein reserviertes Wort in VBA handelt.

Ich habe eine Folie eingerichtet, die einen einzelnen Textrahmen mit "hee" hat und konnte den folgenden Code ohne Fehler und das erwartete Ergebnis ausführen.

Option Explicit 

Sub test() 
    Dim sld As Slide 
    Dim sh As Shape 
    Dim tf As TextFrame 
    Dim pptText As String 

    Set sld = Application.ActiveWindow.View.Slide 
    For Each sh In sld.Shapes 
     Debug.Print sh.TextFrame.TextRange.Text 
    Next sh 
End Sub