Excel VBA質問箱 IV

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

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


44508 / 76732 ←次へ | 前へ→

【37240】Re:連続グラフ作成
回答  Kein  - 06/4/26(水) 18:39 -

引用なし
パスワード
   Sub Mk_Charts2()
  Dim i As Long, j As Long
  Dim Sh As Worksheet
  Dim Ch As Chart, Se As Series
  Dim GR As Range
 
  j = 2: Application.ScreenUpdating = False
  Set Sh = Worksheets.Add(Before:=Worksheets(1))
  Sh.Name = "グラフ": ActiveWindow.DisplayGridlines = False
  With Worksheets("Sheet1").Range("A1").CurrentRegion
   For i = 2 To .Columns.Count
     Set GR = Sh.Cells(j, 2).Resize(20, 8)
     Set Ch = Sh.ChartObjects _
     .Add(GR.Left, GR.Top, GR.Width, GR.Height).Chart
     Ch.ChartType = xlXYScatterLinesNoMarkers
     Set Se = Ch.SeriesCollection.NewSeries
     Se.Values = .Columns(1): Se.XValues = .Columns(i)
     Ch.Axes(xlValue).HasTitle = True
     Ch.Axes(xlValue).AxisTitle.Caption = "荷重(kN)"
     Ch.Axes(xlCategory).HasTitle = True
     Ch.Axes(xlCategory).AxisTitle.Caption = "ひずみ"
     Ch.HasLegend = False
     Set GR = Nothing: Set Ch = Nothing: Set Se = Nothing
     j = j + 21
   Next i
  End With
  Application.ScreenUpdating = True: Set Sh = Nothing
End Sub

で、どうかな ?
1 hits

【37230】連続グラフ作成 ハーレー 06/4/26(水) 13:10 発言
【37232】Re:連続グラフ作成 Kein 06/4/26(水) 15:09 回答
【37237】Re:連続グラフ作成 ハーレー 06/4/26(水) 17:08 質問
【37240】Re:連続グラフ作成 Kein 06/4/26(水) 18:39 回答
【37262】Re:連続グラフ作成 ハーレー 06/4/27(木) 12:59 質問
【37269】Re:連続グラフ作成 Kein 06/4/27(木) 14:44 発言
【37274】Re:連続グラフ作成 ハーレー 06/4/27(木) 17:09 質問
【37276】Re:連続グラフ作成 Kein 06/4/27(木) 17:51 発言
【37301】Re:連続グラフ作成 ハーレー 06/4/28(金) 14:30 質問
【37305】Re:連続グラフ作成 Kein 06/4/28(金) 15:35 発言
【37313】Re:連続グラフ作成 ハーレー 06/4/28(金) 17:31 質問
【37357】Re:連続グラフ作成 ハーレー 06/5/1(月) 16:33 質問
【37362】Re:連続グラフ作成 ネット徘徊者 06/5/1(月) 17:25 発言
【37365】Re:連続グラフ作成 Kein 06/5/1(月) 18:18 発言
【37367】Re:連続グラフ作成 q6 6p 06/5/1(月) 18:56 発言
【37378】Re:連続グラフ作成 ハーレー 06/5/2(火) 12:02 発言
【37382】Re:連続グラフ作成 ハーレー 06/5/3(水) 7:03 お礼

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