2

ハイパーリンクセルでテキストを折り返そうとしていますが、正しく機能させることができません。「オブジェクトはこのプロパティをサポートしていません」というエラーが表示されます。形式が正しくないことに気付きましたが、適切な構文が見つかりません。サイトや提案へのリンクがある場合は、大歓迎です。ありがとう！

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
4

1 に答える 1

2

WrapTextハイパーリンクやワークシートではなく範囲で使用されるため、完全に修飾する必要があります。

.WrapText = True行を次のように変更して、機能させます。

rngResults.WrapText = True
于 2013-03-15T13:08:30.153 に答える