title: VBA - PowerPoint - Insert custom bullets
body: <p>I hope you are doing well. I am trying to create a code to insert the following bullets within the selected text box </p>
  
  <h2><a href="https://i.stack.imgur.com/zWMKs.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/zWMKs.png" alt="Expected"></a></h2>
  
  <p>The font used is Wingdings and the characters are</p>
  
  <ol>
  <li>140</li>
  <li>141</li>
  <li>142</li>
  <li>143</li>
  <li>144</li>
  <li>145</li>
  <li>146</li>
  <li>147</li>
  <li>148</li>
  </ol>
  
  <p>I tried with the following code :</p>
  
  <pre><code>Sub bulletlist()
      With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.bullet
          .Type = ppBulletUnnumbered
          .Character = 140
          With .Font
              .Name = "Wingdings"
              .Size = 44
              .Color = RGB(255, 255, 255)
          End With
      End With
  With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.bullet
          .Type = ppBulletUnnumbered
          .Character = 141
          With .Font
              .Name = "Wingdings"
              .Size = 44
              .Color = RGB(255, 255, 255)
          End With
      End With
  With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.bullet
          .Type = ppBulletUnnumbered
          .Character = 142
          With .Font
              .Name = "Wingdings"
              .Size = 44
              .Color = RGB(255, 255, 255)
          End With
      End With
  With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.bullet
          .Type = ppBulletUnnumbered
          .Character = 143
          With .Font
              .Name = "Wingdings"
              .Size = 44
              .Color = RGB(255, 255, 255)
          End With
      End With
  End Sub
  </code></pre>
  
  <p>But powerpoint returns an error on that code. 
  Do you have any ideas?</p>
  
  <p>Thank you for your time
  Naxso</p>