Excel VBA質問箱 IV

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

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


9598 / 76733 ←次へ | 前へ→

【72696】Re:線・図形+文字の色をつける
発言  UO3  - 12/9/7(金) 9:05 -

引用なし
パスワード
   ▼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 お礼

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