Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9577 / 76732 ←次へ | 前へ→

【72716】Re:線・図形+文字の色をつける
お礼  aka  - 12/9/7(金) 20:28 -

引用なし
パスワード
   ▼UO3 さん:
>▼aka さん:
>
>一応、コード案もアップしておきます。
>
>Sub Sample()
>  If TypeName(Selection) = "Range" Then
>    Selection.Font.Color = vbRed
>  Else
>    With Selection.ShapeRange
>      If .Type = msoLine Then
>        .Line.ForeColor.RGB = vbRed
>      Else
>        .Fill.ForeColor.RGB = vbRed
>        .Fill.Visible = True
>        .Fill.Solid
>      End If
>    End With
>  End If
>End Sub


できました!
わざわざ追記までしてくださって本当にありがとうございます!!

お返事遅くなりまして申し訳ありませんでした。

2 hits

【72694】線・図形+文字の色をつける aka 12/9/6(木) 21:09 質問
【72695】Re:線・図形+文字の色をつける UO3 12/9/7(金) 6:52 発言
【72696】Re:線・図形+文字の色をつける UO3 12/9/7(金) 9:05 発言
【72716】Re:線・図形+文字の色をつける aka 12/9/7(金) 20:28 お礼

9577 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free