0

我希望这个宏以不带下划线的项目符号点输出列表,字体大小为 18。我该怎么做?

With ActiveSheet
    Set ListStart = .Range("L13")

    For Each sh In ActiveWorkbook.Worksheets
        For Each pvt In sh.PivotTables



         .Hyperlinks.Add Anchor:=ListStart.Offset(i, 0), Address:="", SubAddress:= _
        pvt.TableRange2.Cells(1).Address(external:=True), TextToDisplay:=pvt.Name


                i = i + 1



        Next pvt
    Next sh
End With

ListStart.Select
4

1 回答 1

0

您可以简单地在单元格中使用字符“•”。 TextToDisplay = "• " & pvt.Name或类似的东西。

至于改变字体大小,Cells.Font.Size = "18"(我会让你整理细节)会做的。

除非您指定,否则不会有下划线,所以应该足够了。

希望这可以帮助!

于 2013-08-15T13:14:16.870 回答