Выходной список в пунктах bullet

Question

Я бы хотел, чтобы этот макрос выводил список в пуленевых точках без подчеркивания с размером шрифта 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 

Answer 1

Вы можете просто использовать символ «•» в своих ячейках. TextToDisplay = "• " & pvt.Name или что-то в этом роде.

Что касается изменения размера шрифта, то это сделает Cells.Font.Size = "18" (я оставлю вас для выяснения деталей).

Не будет подчеркивания, если вы не укажете его, чтобы этого было достаточно.

Надеюсь, это поможет!