Excel VBA質問箱 IV

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

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


1677 / 13646 ツリー ←次へ | 前へ→

【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 お礼[未読]

【72694】線・図形+文字の色をつける
質問  aka  - 12/9/6(木) 21:09 -

引用なし
パスワード
   Excelで引いた線、もしくは図形に指定の色を塗ることができるマクロは可能なのでしょうか?
文字についてはできるのですが、上記のような着色が可能であれば教えて頂きたいです。

また、線・図形に対して着色と文字の着色を同一のコードでできるなら非常に助かるのですが・・・(指定したセルに文字があればその文字に対して任意の着色を実行し、指定したのが線・図形であればその線・図形に任意の着色を実行するというような)

よろしくお願いします。

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

引用なし
パスワード
   ▼aka さん:

おはようございます
線や図形を選択して、書式設定で色をつけることはできますよね。
それをマクロ記録してみましょう。

あと、セルを選択しているのか、何かの図を選択しているのかは、以下で判定できます。
セルの場合 "Range"という文字列がかえります。

Sub Sample()
  MsgBox TypeName(Selection)
End Sub

【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

【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


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

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

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