API如何设置某LeaderNote的文字左右朝向？

[Anonymous]

使用oLeaderNote = ActiveSheet.DrawingNotes.LeaderNotes.Add 新建出了一条引出线标注。文字朝向默认是与引出线的左右朝向一致的。如何用API反折文字下线使其与引出线左右朝向相反呢？（想实现让文字写在箭头处的正下或正上方）

[Xun.Zhang · Accepted solution]

@Anonymous,

实在抱歉，貌似暂时没有相关的API提供。
希望有所帮助。

[Anonymous]

好的。谢谢回复。

[YuhanZhang · Accepted solution]

你可以通过改变LeaderNote的Position来改变其位置的，下面的VBA代码你可以试试：

Sub ChangeLeaderTextOrientation()
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oSheet As Sheet
    Set oSheet = oDoc.ActiveSheet
    
    Dim oNote As LeaderNote
    Set oNote = oSheet.DrawingNotes.LeaderNotes(1)
    
    If oNote.Leader.HasRootNode Then
        Dim oPosition As Point2d
        Set oPosition = oNote.Leader.RootNode.Position
        'Debug.Print oPosition.X & "," & oPosition.Y
        
        ' move the text to left
        oPosition.X = oPosition.X - 0.255
        oNote.Position = oPosition
        
        ' move the text to right
        Set oPosition = oNote.Leader.RootNode.Position
        oPosition.X = oPosition.X + 0.255
        oNote.Position = oPosition
        
        ' move the text to above
        Set oPosition = oNote.Leader.RootNode.Position
        oPosition.Y = oPosition.Y + 0.255
        oNote.Position = oPosition
        
        ' move the text to bottom
        Set oPosition = oNote.Leader.RootNode.Position
        oPosition.Y = oPosition.Y - 0.255
        oNote.Position = oPosition
    Else
        Call MsgBox("The leader note has no root node.")
    End If
End Sub

[Anonymous]

谢谢回复。可能您没理解我的意思。

一般LeaderNotes.add添加后的效果是这样：note  ／　或    ＼　note

而我想实现的效果是这样：／  note　或 　note  ＼

请问API有什么方法吗？

[YuhanZhang]

能否描述一下在UI上你是通过哪些步骤实现的？

[Anonymous]

如图，在UI上用鼠标拖拽靠近文字的绿点，即可改变文字的朝向。可以通过API实现吗？

[YuhanZhang · Accepted solution]

我给你的VBA代码就是改变这个文字的位置的，你可以调试一下，它会改变四个方向，所以你需要改成哪个方向要自己先判断一下。

[Anonymous]

谢谢！的确有效。是我搞错了，调整后的oPosition要带入LeaderNote.Position,我测试时带回了RootNode.Position了，还在纳闷这要如何变方向。。。

谢谢解答！