畫(huà)圖的宏
返回
<![CDATA[
Sub Macro1()
'
' Macro1 Macro
'
Columns("C:D").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets("pro11_001").Range("C1:D38"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "=pro11_001!R2C5:R38C5"
ActiveChart.SeriesCollection(2).Values = "=pro11_001!R2C6:R38C6"
ActiveChart.SeriesCollection(2).Name = "=pro11_001!R1C6"
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).XValues = "=pro11_001!R2C7:R38C7"
ActiveChart.SeriesCollection(3).Values = "=pro11_001!R2C8:R38C8"
ActiveChart.SeriesCollection(3).Name = "=pro11_001!R1C8"
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).XValues = "=pro11_001!R2C9:R38C9"
ActiveChart.SeriesCollection(4).Values = "=pro11_001!R2C10:R38C10"
ActiveChart.SeriesCollection(4).Name = "=pro11_001!R1C10"
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).XValues = "=pro11_001!R2C11:R38C11"
ActiveChart.SeriesCollection(5).Values = "=pro11_001!R2C12:R38C12"
ActiveChart.SeriesCollection(5).Name = "=pro11_001!R1C12"
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(6).XValues = "=pro11_001!R2C13:R38C13"
ActiveChart.SeriesCollection(6).Values = "=pro11_001!R2C14:R38C14"
ActiveChart.SeriesCollection(6).Name = "=pro11_001!R1C14"
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(7).XValues = "=pro11_001!R2C15:R38C15"
ActiveChart.SeriesCollection(7).Values = "=pro11_001!R2C16:R38C16"
ActiveChart.SeriesCollection(7).Name = "=pro11_001!R1C16"
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(8).XValues = "=pro11_001_a!R2C1:R8C1"
ActiveChart.SeriesCollection(8).Values = "=pro11_001_a!R2C2:R8C2"
ActiveChart.SeriesCollection(8).Name = "=pro11_001_a!R1C2"
End Sub
]]>
返回
靖江市|
鄂伦春自治旗|
靖宇县|
眉山市|
开远市|
滨海县|
宜城市|
台山市|
黄石市|
扎囊县|
刚察县|
当涂县|
灌南县|
尼玛县|
淄博市|
滦南县|
镇远县|
中牟县|
大埔区|
淮阳县|
和田市|
泰宁县|
葵青区|
象山县|
临洮县|
杭州市|
奉化市|
婺源县|
左贡县|
临城县|
仙居县|
思南县|
凌云县|
肃北|
车致|
竹山县|
大石桥市|
文化|
中方县|
仁怀市|
黎城县|