0

Connector が本当に Shape に接続されているかどうか、つまり、EndConnectedShape によって返される Shape があるかどうかを確認する必要があります。これまでのところ、これはありますが、エラーが表示されます:許可が拒否されました:

Sub test()
    Dim oSh, mySh As Shape
    smth = "SomeName"

    For Each oSh In ActivePresentation.Slides(1).Shapes
        If oSh.Connector And oSh.Name = smth Then
            ' In the NEXT line the following error is returned:
            ' oSh.ConnectorFormat.EndConnectedShape = <Permission denied>
            Set mySh = oSh.ConnectorFormat.EndConnectedShape
            If Not IsEmpty(mySh) Then
                oSh.ConnectorFormat.EndConnectedShape.Line.ForeColor.RGB = RGB(255, 0, 0)
            End If
        End If
    Next oSh

End Sub

非常に単純なものがあるに違いありませんが、何が欠けているのかわかりません。助言がありますか？ありがとう！

4

1 に答える 1

3 
oSh.ConnectorFormat.EndConnected

端が何かに接続されているかどうかを示すブール値を返します: .EndConnectedShape にアクセスする前に確認してください

注:ウォッチ ウィンドウを使用して次のような問題をデバッグする方法を理解するのに時間を費やす価値がoShあります。見る...

ここに画像の説明を入力

于 2014-02-28T20:45:10.983 に答える