| タイトル | ： エクセルのグラフ |
| 記事No | ： 1576 |
| 投稿日 | ： 2005/04/12(Tue) 10:15 |
| 投稿者 | ： うっず |
[OSのVer]：WindowsXP [VBのVer]：VB.NET
エクセルファイルを開き、そのファイルに折れ線グラフを挿入して、
そのグラフで、DisplayUnitCustomプロパティーを設定すると、
そのエクセルファイルを正常に保存できなくなってしまいます。
表示上は所望のグラフを作成できているのですが、保存ができません。
該当部分のソースの抜粋を載せます。
DisplayUnitCustomの設定をコメントアウトすると、正常に保存できます。
同様の現象出ている方いらっしゃいますでしょうか？
'グラフ挿入
xlchart = xlSheetd.ChartObjects.Add((i * (G_F_Width + 10)) + 10, (graphcount * 200) + 10,
G_F_Width, G_F_Height)
'グラフ設定
xlchart.Chart.ChartType = Excel.XlChartType.xlLine
xlchart.Chart.SetSourceData(xlsheetsc.Range(row(i) + "4:" + row(i) + FFTWaveTerm)
)
xlchart.Chart.SeriesCollection(1).Name = "=""" + xlsheetsc.Range(row(i)
+ "2").Value + """"
xlchart.Chart.SeriesCollection(1).Border.Weight = Excel.XlBorderWeight.xlThick
With xlchart.Chart
.HasTitle = True
.SeriesCollection(1).XValues = xvalue
.TickLabelPosition = Excel.XlTickLabelPosition.xlTickLabelPositionLow
'タイトル
With .ChartTitle
.Characters.Text = TitleString1 + TitleString2 + TitleString3
End With
'横軸の設定
With .Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = "Hz"
.TicklabelPosition = Excel.XlTickLabelPosition.xlTickLabelPositionLow
.CategoryType = Excel.XlCategoryType.xlCategoryScale
.CrossesAt = 1
.TickLabelSpacing = 5
.TickMarkSpacing = 5
.AxisBetweenCategories = True
.ReversePlotOrder = False
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
'縦軸の設定
With .Axes(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = "m/s2"
.AxisTitle.Characters(Start:=4, Length:=1).Font.Superscript = True
.MinimumScale = G_F_MinScale
.MaximumScale = G_F_MaxScale
.MinorUnit = 0.5
.MajorUnit = G_F_Unit
.CrossesAt = 0
.ReversePlotOrder = False
.ScaleType = Excel.XlScaleType.xlScaleLinear
.DisplayUnitCustom = "0.10204081632653061224489795918367"
.HasDisplayUnitLabel = False
End With
.PlotArea.Interior.ColorIndex = Excel.XlColorIndex.xlColorIndexNone
End With
xlchart.Chart.HasLegend = True
xlchart.Chart.Legend.Position = Excel.XlLegendPosition.xlLegendPositionBottom
xlchart.Chart.Location(Excel.XlChartLocation.xlLocationAsObject, xlSheetd)
NAR(xlchart)
|