在With语句中添加超链接和Alt文本以整形

Question

使用以下代码在我的excel文档中基于范围值动态创建连接器，但是想为每个带有alttext的形状添加超链接，这可以在With语句中完成。

With ws.Shapes.AddConnector(msoConnectorStraight, Range(Rng(i, 1)).Left, _
    Range(Rng(i, 1)).Top, _
    Range(Rng(i, 2)).Left, _
    Range(Rng(i, 2)).Top)

    If parameters(i, 1) = "1" Then
        .Line.ForeColor.RGB = RGB(0, 0, 255)
    ElseIf parameters(i, 1) = "2" Then
        .Line.ForeColor.RGB = RGB(255, 0, 0)
    ElseIf parameters(i, 1) = "3" Then
        .Line.ForeColor.RGB = RGB(0, 255, 0)
    End If

End With

Answer 1

AlternativeText和Hyperlink都是shape对象的属性，因此您将无法在此特定的with块中执行此操作。但是您可以执行定义这些属性的ForEach shape in ws.shapes循环。