rediffusion
Board Regular
- Joined
- Apr 24, 2019
- Messages
- 60
Cross-post!
I have some VBA macro for "Inserting Note" in Microsoft Excel. I want this prettifier to be inserted in my macro for creating a note with highlighting, is it possible (Interested in highlighting such as on StackOverflow)? Watched a video 1, 2, - on YouTube but the manual is not relevant it's for the site...
Screenshot
For example MS WORD has `Code Syntax Highlighting` i want something for MS EXCEL.
Screenshot ··· highlighting for MS WORD.
I have some VBA macro for "Inserting Note" in Microsoft Excel. I want this prettifier to be inserted in my macro for creating a note with highlighting, is it possible (Interested in highlighting such as on StackOverflow)? Watched a video 1, 2, - on YouTube but the manual is not relevant it's for the site...
Screenshot
Code:
[COLOR=#24292E][FONT=SFMono-Regular]Sub Special_Note_White()[/FONT][/COLOR]
<code style="box-sizing: border-box; font-family: SFMono-Regular, Consolas, "Liberation Mono", Menlo, monospace; background: transparent; border-radius: 3px; margin: 0px; padding: 0px; border: 0px; word-break: normal; display: inline; line-height: inherit; overflow: visible; overflow-wrap: normal;">Dim myComm As Comment
If Not ActiveCell.Comment Is Nothing Then
If MsgBox("The cell already contains a note, delete?", 4) - 7 Then
ActiveCell.Comment.Delete
Else: Exit Sub
End If
End If
Set myComm = ActiveCell.AddComment
With myComm.Shape
.Height = 110
.Width = 200
.AutoShapeType = 1
.Fill.ForeColor.SchemeColor = 1
.Line.ForeColor.RGB = RGB(255, 0, 0)
.DrawingObject.Font.Name = "Consolas"
.DrawingObject.Font.FontStyle = "normal"
.DrawingObject.Font.Size = 8
End With
'Emulate the choice of "Edit Note".
SendKeys "+{F2}"
</code>[COLOR=#24292E][FONT=SFMono-Regular]End Sub[/FONT][/COLOR]
For example MS WORD has `Code Syntax Highlighting` i want something for MS EXCEL.
Screenshot ··· highlighting for MS WORD.