首先可以明确告诉你：这个需求完全可以实现，问题出在你对Shape节点操作的认知上——V形箭头（msoShapeChevron）属于「调整形状（Adjustable Shapes）」，它的节点位置不能直接通过Node.Left访问，而是要通过Adjustments属性来控制。

为什么你的代码报错？ #

你尝试遍历.Nodes并访问nd.Left，但对于msoShapeChevron这类内置调整形状，其Node对象并没有Left/Top属性。这类形状的可变部分是通过Adjustments集合来定义的，每个索引对应一个可调整的参数。

对于msoShapeChevron来说，Adjustments(1)就是控制右侧箭头尖端的位置：

• 默认值为0：右侧节点在形状最右端，是标准的V形
• 设置为1：右侧节点会移动到形状的尖端位置，刚好符合你要的「箭头尖端对齐」效果

修改后的完整代码 #

我帮你调整了代码，修复了节点操作的问题，同时补充了fargekart颜色数组的示例（你原来的代码里用到了但没定义）：

Sub energiInn()
    Dim r As Range, c As Range
    Dim lo As ListObject
    Dim topp As Double, høgde As Double
    Dim i As Long, farge As Long
    ' 定义颜色数组示例，你可以根据需求修改
    Dim fargekart As Variant
    fargekart = Array(RGB(255, 0, 0), RGB(0, 255, 0), RGB(0, 0, 255), RGB(255, 255, 0))
    
    Set lo = ThisWorkbook.Worksheets("Tabell").ListObjects("Energi_inn_elektrolyse") ' 确保工作表名称正确
    Set r = lo.DataBodyRange
    topp = 50
    
    With ThisWorkbook.Worksheets("SankeyDiagram").Shapes ' 明确指定工作表
        For i = 1 To r.Rows.Count
            høgde = Application.WorksheetFunction.Max(10, r.Cells(i, 2) / 50#)
            
            With .AddShape(Type:=msoShapeChevron, Left:=50, Top:=topp, Width:=200, Height:=høgde)
                .Name = r.Cells(i, 1).Value ' 确保名称是单元格文本
                ' 循环取颜色数组的颜色
                farge = fargekart((i - 1) Mod (UBound(fargekart) + 1)) ' 修正数组索引，UBound从0开始
                .Fill.ForeColor.RGB = farge
                .Line.Visible = msoFalse ' 可选：去掉边框更美观
                ' 关键：调整V形箭头的右侧节点到尖端位置
                .Adjustments(1) = 1
            End With
            
            topp = topp + høgde + 5 ' 加5是为了给箭头之间留间隙，可调整
        Next i
    End With
    
    Debug.Print "已创建 " & r.Rows.Count & " 个入口箭头"
End Sub

关键说明 #

1. Adjustments属性的使用：Adjustments(1) = 1是实现你需求的核心，这行代码直接把V形箭头的右侧节点拉到尖端，无需遍历Nodes集合。
2. 颜色数组修正：原代码中(i - 1) Mod UBound(fargekart)会导致索引越界，因为UBound(fargekart)返回的是数组最大索引（比如4个元素的数组是3），所以要改成(i - 1) Mod (UBound(fargekart) + 1)。
3. 明确工作表对象：原代码里的Tabell和SankeyDiagram最好加上ThisWorkbook.Worksheets()前缀，避免因活动工作表变化而出错。

额外提示 #

• 如果需要调整箭头的尖端角度，可以微调Adjustments(1)的值（比如0.9或1.1），不过1刚好是完全对齐尖端的效果。
• 批量创建形状前，可以先清空目标工作表的旧形状：ThisWorkbook.Worksheets("SankeyDiagram").Shapes.Delete，避免重复创建。

内容的提问来源于stack exchange，提问作者eirikdaude