+ Reply to Thread
Results 1 to 5 of 5

Shooting a Bullet character in Excel cell.

  1. #1
    Hari Prasadh
    Guest

    Shooting a Bullet character in Excel cell.

    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



  2. #2
    STEVE BELL
    Guest

    Re: Shooting a Bullet character in Excel cell.

    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


    --
    steveB

    Remove "AYN" from email to respond
    "Hari Prasadh" <[email protected]> wrote in message
    news:[email protected]...
    > 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
    >




  3. #3
    David McRitchie
    Guest

    Re: Shooting a Bullet character in Excel cell.

    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
    ---
    HTH,
    David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
    My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
    Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

    "Hari Prasadh" <[email protected]> wrote in message news:[email protected]...
    > 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
    >
    >




  4. #4
    Hari Prasadh
    Guest

    Re: Shooting a Bullet character in Excel cell.

    Hi David,

    Thnx for your suggestion and link.

    149 is ceratinly a nice substitute.

    Thanks a lot,
    Hari
    India

    "David McRitchie" <[email protected]> wrote in message
    news:[email protected]...
    > 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
    > ---
    > HTH,
    > David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
    > My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
    > Search Page: http://www.mvps.org/dmcritchie/excel/search.htm
    >
    > "Hari Prasadh" <[email protected]> wrote in message
    > news:[email protected]...
    >> 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
    >>
    >>

    >
    >




  5. #5
    David McRitchie
    Guest

    Re: Shooting a Bullet character in Excel cell.

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

    "Hari Prasadh" <[email protected]> wrote ...
    > Thnx for your suggestion and link.
    > 149 is ceratinly a nice substitute.




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1