我希望这个宏以不带下划线的项目符号点输出列表,字体大小为 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