|
▼まつ君 さん今晩は
>グラフの大きさを表の行数が増える毎にその分
>長くなるようにできないでしょうか
Sheet1モジュールに入れてみて、試して下さい。
A列の最終行が変わると、グラフの長さが変化します。
A列を横軸の項目、B列を数値データにし、data範囲をB17からにしています。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
'
'A列で最終行を調べる
LastRow = ActiveSheet.Range("A65536").End(xlUp).Row
data範囲 = "B17:B" & LastRow
'
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(data範囲), PlotBy _
:=xlColumns
ActiveWindow.Visible = False 'グラフを非アクティブにする
'
'Windows("Book名.xls").Activate 'Bookをアクティブにする
ActiveCell.Select
End Sub
|
|