Shooting a Bullet character in Excel cell.

[Hari Prasadh]

Hi,

I have a list in column A starting from A1 to A15.

a). I would like to add a bullet before the present text in column A (with a
space separating bullet and the present cell's contents) and output it to
Column B starting from row 1. Is there a char function for bullet. Presently
I went through a long way of going to Insert - Symbol and then chose Arial
(I want Arial font only) and then from innumerable options I chose a bullet
looking symbol whose character code is 25CF (using this char code in excel
doesnt work. excel rather switches 25cf to CF25 for address reference !!)

I recorded the above process but got a macro like this which doesnt help.

Sub Bulleting()
'
' Bulleting Macro
' Macro recorded 7/7/2005 by Hari Prasadh
'

'
ActiveCell.FormulaR1C1 = "?"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("G13").Select
End Sub


I never inserted a question mark so dunno from where it popped up.

b) Second, after the bullet is inserted I would combine it with the text in
A1 and output to B1. Then I want to Format all the Bullets in Column B to
Red (only the bullet not the text). How to do this automatically?

Ultimately I would be taking this List in Column B and pasting in to a
text-Box in power-point.

Please guide me.

Thanks a lot,
Hari
India

 

[STEVE BELL]

Tried your code in Excel 2000 and got the character ?
Couldn't find a bullet character in Ariel, so used Wingdings.

Recorded code, edited it, and got this...

Play with recording and format individual letters in the text and see
what you get...s you should be able to color the bullet...

ActiveCell.Formula = "l " & ActiveCell.Text
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Wingdings"
.FontStyle = "Regular"
.Size = 10
End With
With ActiveCell.Characters(Start:=2, Length:=Len(ActiveCell) - 1).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
End With

 

[David McRitchie]

Does it have to be an open bullet like you selected in 9675 (or x'25CF).

How about a regular closed round bullet with a function CHAR(149) or
that you could type in as ALT+0149 on the numeric keypad
or on a Laptop as Fn + ALT + 0149

Also look at
Font Tables as Rendered by your browser
http://www.mvps.org/dmcritchie/rexx/htm/fonts.htm

 

[Hari Prasadh]

Hi David,

Thnx for your suggestion and link.

149 is ceratinly a nice substitute.

Thanks a lot,
Hari
India

 

[David McRitchie]

Hi Hari,
Good, I wasn't really sure if you used same Code Page (Character Set)
or not in India.