| |
▼Hiroko さん：
>あと、ちょっと欲がでて、フォームの
>LabelのCaptionをレッド色に色を付けたり
>TextBoxのValueにレッド色の色を付けたり、出来るのでしょうか？
>
>Private Sub CommandButton1_Click()
>Dim fcolor As String
>fcolor = Range("C10").Value
> Select Case fcolor
> Case "RED", "red"
> Label1.Caption = "レッド"
> TextBox1.Value = "RED"
> この後にFont.ColorIndex=3を反映させることが
> 出来るのでしょうか？
文字色をコードで変えるのなら、
Label1.ForeColor = &HFF& 'Labelの文字色 赤色
TextBox1.ForeColor = &HFF&
でできます。
コードでなく、直接UserFormの編集画面で、Label1 または, TextBox1をセレクトして、プロパティーウィンドウでForeColorのパレットで色を指定しても出来ます。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
