Having multiple colors in a textbox

vbabeginner92

New Member
Joined
Jul 25, 2018
Messages
13
I am trying to use VBA to insert a yellow textbox that has Procedures, Tickmarks, and Conclusion on separate lines. I have been able to do so.

Now I am trying get font to change after the headings. Below is the an example and code for trying to get the font unbolded and black after "Procedures:". So for below "Procedures:" will be red ad bolded. Everything after it will be black an unbolded.

For "{a} -", text will be red and bolded and after hyphen, text is black and unbolded.

Example

Procedures: All text after the semicolon is now unbolded and black.

Tickmarks:

{a} – all the text after is unbolded and black






Sub PBC_and_Textbox()
Dim PBC As String
PBC = "PBC"
ActiveCell.Value = PBC
With ActiveCell.Font
.Bold = True
.Color = vbRed
End With
ActiveCell.Interior.Color = RGB(255, 255, 0)
ActiveCell.HorizontalAlignment = xlCenter
'This add PBC to the activecell
'============================================================
Dim Textbox As String
Set s = ActiveSheet.Shapes.AddTextBox(msoTextOrientationHorizontal, 500, 20, _
400, 145)
With s.Fill
.ForeColor.RGB = RGB(255, 255, 153)
End With
With s.TextFrame
.Characters.Font.Color = RGB(255, 0, 0)
.Characters.Font.Bold = True
.Characters.Text = "Procedures: Insert Procedures" & vbNewLine & vbNewLine & "Tickmarks:" & vbNewLine & vbNewLine & "{a} - " & vbNewLine & "{b} - " & vbNewLine & "{c} - " & vbNewLine & vbNewLine & "Conclusion:"
End With
With s.TextFrame.TextRange.Find
.Text = "Insert Procedures"
.Replacement.Text = "Insert procedures"
.MatchWildCards = True
.clearformatting
.Replacement.clearformatting
With .Replacement.Font
.Bold = False
.Color = vbBlack
End With
.Execute Replace:=wdReplaceOne
End With
End Sub
 

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney

Forum statistics

Threads
1,223,904
Messages
6,175,295
Members
452,631
Latest member
a_potato

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top