Если там есть текст в другой метке ActiveX, то покажи метку

Question

Я хотел бы сделать метку видимой, если в элементе управления ActiveX есть текст.

Я пробовал разные коды, но, похоже, ничего не работает

Private Sub makeVisible()


    Set mydocument = ActivePresentation.Slides(12)
    'mydocument.Select

    With mydocument.Shapes("LabelFigure")
    'mydocument.Shapes("LabelFigure").Select

       If mydocument.Shapes("LabelFigure").OLEFormat.Object.Caption = True Then
        Label2.Visible = True


    End If
    End With
    End Sub 

Answer 1

Это должно сделать это (это зависит от вас, чтобы убедиться, что на слайде есть фигуры с правильным именем).

Option Explicit

    Private Sub makeVisible()

    ' Always Dim your variables
    ' Including Option Explicit at the top of the module
    '   will enforce this
    Dim mydocument As Slide

    ' I've changed the slide number and label names
    ' to match my test presentation/slide.
    ' Change them back to match your situation:

    Set mydocument = ActivePresentation.Slides(1)

    With mydocument.Shapes("Label1")

       If Len(.OLEFormat.Object.Caption) > 0 Then
           mydocument.Shapes("Label2").Visible = True
       End If

    End With

    End Sub