wraptext给定单元格中的超链接

Question

我正在尝试在超链接单元格中包装文本，但无法让它正常工作。我得到“对象不支持此属性”错误。我意识到格式不正确，但无法找到正确的语法。如果您有网站或建议的链接，非常感谢。谢谢！

With wbk.Sheets(1)
Set rngResults = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
    bingo = fld.Path & "\" & fl.Name
    ActiveSheet.Hyperlinks.Add Anchor:=rngResults, Address:=bingo, SubAddress:=aCell.Address, TextToDisplay:=strJackpot
    .WrapText = True
End With

Answer 1

WrapText与范围一起使用，而不是超链接或工作表，因此您需要完全限定它。

将.WrapText = True行更改为以下内容以使其正常工作：

rngResults.WrapText = True