Excel VBA質問スレ Part10

37 名前：26 [2009/02/25(水) 23:59:13 ] カラーパレットは56色までなので無理という事でしょうか？ 以下のマクロできれいなグラデーションの様なグラフを作成したいのです Sub test() Dim aaa As String Dim i As Integer aaa = ActiveSheet.Name '仮ﾃﾞｰﾀ作成（1列目に1〜225の数字を入れる−−−−−−−−−−−−−−−−−−−−−−− For i = 1 To 225 Cells(i, 1) = i Next 'グラフ作成−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− Columns("A:A").Select Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("A1:A225"), PlotBy _ :=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:=aaa ActiveChart.HasLegend = False 'マーカの色付け−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− For i = 1 To 225 ActiveChart.SeriesCollection(1).Points(i).Border.Color = RGB(0, i, 225) ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColor = RGB(0, i, 225) ActiveChart.SeriesCollection(1).Points(i).MarkerForegroundColor = RGB(0, i, 225) Next End Sub

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef