Excel VBA質問箱 IV

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

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


63229 / 76738 ←次へ | 前へ→

【18108】Re:3次元棒グラフをマクロで描くには ちょっと訂正
お礼  カド  - 04/9/15(水) 17:54 -

引用なし
パスワード
   とりあえずこんな感じで色付けは出来ましたが、棒グラフの値を表示する必要
があるなど、どんどん要求事項が増えてきて、手に負えなくなってきたので、
やはりエクセルのグラフ機能を使うことにしました。

色々とありがとうございました。

(追伸)
そもそも、どうしてこういうことを始めたかというと、エクセルで書いた
3Dの棒グラフはグラフエリアの高さを極端に小さくすると、幅が勝手に
小さくなって、どうしても広くすることが出来ないという問題があるからです。
2Dのグラフならこんな問題は無いのですが。


今回は3Dで高さの大きいグラフを書いて、ビットマップとして高さを
小さくすることで対処することにしました。

Dim 図形 As Shape

Count = 0
  For Each 図形 In ActiveSheet.Shapes

      図形.Select
     If Count Mod 3 = 0 Then '3で割った余り

      Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15

     End If
    
     If Count Mod 3 = 1 Then

      Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13

     End If
    
     If Count Mod 3 = 2 Then

      Selection.ShapeRange.Fill.ForeColor.SchemeColor = 14

     End If
     Count = Count + 1

  Next
0 hits

【17918】3次元棒グラフをマクロで描くには カド 04/9/10(金) 12:32 質問
【17919】Re:3次元棒グラフをマクロで描くには IROC 04/9/10(金) 13:01 回答
【17948】Re:3次元棒グラフをマクロで描くには カド 04/9/10(金) 20:52 お礼
【17941】Re:3次元棒グラフをマクロで描くには ichinose 04/9/10(金) 18:24 発言
【17962】Re:3次元棒グラフをマクロで描くには カド 04/9/11(土) 9:36 お礼
【17963】Re:3次元棒グラフをマクロで描くには ichinose 04/9/11(土) 10:42 発言
【17964】Re:3次元棒グラフをマクロで描くには 追伸 ichinose 04/9/11(土) 10:48 発言
【17969】Re:3次元棒グラフをマクロで描くには 追伸 カド 04/9/11(土) 17:06 お礼
【17980】Re:3次元棒グラフをマクロで描くには 追伸 ichinose 04/9/11(土) 22:05 発言
【17987】Re:3次元棒グラフをマクロで描くには ち... ichinose 04/9/12(日) 0:44 発言
【18061】Re:3次元棒グラフをマクロで描くには ち... カド 04/9/14(火) 9:46 お礼
【18094】Re:3次元棒グラフをマクロで描くには ち... ichinose 04/9/15(水) 7:34 発言
【18105】Re:3次元棒グラフをマクロで描くには ち... カド 04/9/15(水) 13:46 お礼
【18107】Re:3次元棒グラフをマクロで描くには ち... カド 04/9/15(水) 16:55 お礼
【18108】Re:3次元棒グラフをマクロで描くには ち... カド 04/9/15(水) 17:54 お礼

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