Re: Color-Eigenschaft und RGB

Hallo Stefan,

so vielleicht:

Sub Test0983456()
Dim oFnt As Font
Set oFnt = New Font
oFnt.Color = RGB(100, 100, 100)
Selection.Font = oFnt
End sub


--
Gruß

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003
.

Relevant Pages

  • Re: Color-Eigenschaft und RGB
    ... Sub Test0983456 ... Dim oFnt As Font ... Set oFnt = New Font ...
    (microsoft.public.de.word.vba)
  • Re: where can I find the symbol for the word "therefore"?
    ... Is it the decimal equivalent of the Unicode hex number? ... Sub GetLong() ... When I simply type 2234 and press ALT+x (without first selecting a font) ...
    (microsoft.public.word.docmanagement)
  • Re: Form does not see mouse events!!!!
    ... font size used as the buttons caption, ... Private WindowBorder As Long ... Private MinWindowWidth As Long ... Private Sub Form_Load ...
    (microsoft.public.vb.general.discussion)
  • Re: Form does not see mouse events!!!!
    ... the form's minimal height limit is also influenced by the font ... Private WindowBorder As Long ... Private MinWindowWidth As Long ... Private Sub Form_Load ...
    (microsoft.public.vb.general.discussion)
  • Re: Caching system font size change
    ... message when the font will change. ... Private Sub Form_Load ... Private Const SPI_GETICONTITLELOGFONT As Long = 31 ... (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) ...
    (microsoft.public.vb.general.discussion)