| |
Keinさん、お返事どうもありがとうございます。
お恥ずかしいのですが、マクロについての知識がありません。
コードってどういうことを言うのでしょうか？
前後があるので、わかりにくいかと思いますが、
散布図作成のところのソースは以下の通りです。
これで散布図を作成することはできています。
マクロの記録で記録したものを使っているのですが、
表示した覚えのない系列の線が表示されてしまい、
この後に系列を削除する記述を入れています。
説明が悪くて申し訳ありません。どこかに系列を表示しない
記述をしないといけないのでしょうか？
宜しくお願いいたします。
'＜散布図作成＞
Dim r As Integer
Range("G47").End(xlDown).Select
r = ActiveCell.Row
Charts.Add
ActiveChart.ChartType = xlXYScatter
Dim Mfile As String
Mfile = Mid(FName, 29, 11)
ActiveChart.SetSourceData Source:=Sheets(Mfile).Range("G47:G" & CStr(r), "J47:J" & CStr(r)) _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=Mfile
Dim mf As String
mf = Application.InputBox(Prompt:="ファイル名を入力してください", Type:=2)
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = mf
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "potential[V]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "current density[mA/g]"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
Selection.AutoScaleFont = False
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 1
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 15
.PatternColorIndex = 1
.Pattern = xlSolid
End With
ActiveChart.Axes(xlCategory).MajorGridlines.Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlDot
End With
|
|
みぽりん
- 05/5/17(火) 9:43 -
