PPT中插入Excel图表和Microsoft Graph的应用.

ningyong58

有兴趣的大侠请就这个帖子
<Excel图表或Microsoft Graph>
http://www.officeba.com.cn/artic ... 2008/5/29/2151.html
<插入图表与插入对象中的Microsoft Graph图表有什么不同？>
ttp://club.excelhome.net/viewthread.php?tid=310586&highlight=graph
PPT中插入Excel图表和Microsoft Graph的应用.
1 在PPT中插入Excel图表
2 在PPT中,用VBA技术使用Microsoft Graph

cxffxc

讲解的比较透彻

ningyong58

发帖可能没有说清楚
此帖的目的是各位大侠在Ppt插入图表时,常使用哪种方法.

1 在PPT中插入Excel图表
2 在PPT中,用VBA技术使用Microsoft Graph

ning84

2009年注册的，忘记密码了，又重新注册了。不知道能否找回密码。2010年就该是学习Microsoft Graph，13年了还没有学习好，再次下功夫学习图表。

VBA图表基础教程-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/forum.php?mod=viewthread&tid=1417686

1. With ch.Chart
   
2.         With .SeriesCollection.NewSeries
   
3.             .Values = ws.Range("b3:b" & lastrow)
   
4.             .XValues = ws.Range("a3:a" & lastrow)
   
5.             .ChartType = xlArea
   
6.             .Interior.Color = RGB(127, 255, 212)
   
7.         End With
   
8.         With .SeriesCollection.NewSeries
   
9.             .Values = ws.Range("b3:b" & lastrow)
   
10.             .XValues = ws.Range("a3:a" & lastrow)
    
11.             .ChartType = xlLineMarkers
    
12.             .MarkerSize = 5 '数据标记大小
    
13.             .MarkerStyle = xlMarkerStyleCircle '数据标记类型
    
14.             .MarkerBackgroundColor = RGB(255, 106, 106)
    
15.             .MarkerForegroundColor = RGB(90, 178, 238)
    
16.             .HasDataLabels = True '有数据标签
    
17.             .DataLabels.NumberFormat = "0.00"
    
18.             .HasLeaderLines = True
    
19.             .LeaderLines.Border.ColorIndex = 5
    
20.             .Trendlines.Add Type:=xlPolynomial '趋势线
    
21.             .Trendlines(1).Border.LineStyle = xlDash
    
22.             .Trendlines(1).Border.Color = vbRed
    
23.         End With
    
24.         .HasLegend = False
    
25. End With
    
26. 
    
27. 再好好学习这个贴子。
    
28. 
    
29. 
    
30. 
    
31. 
    

复制代码

1. With ch.Chart.Axes(xlValue, xlPrimary)
   
2.         .CrossesAt = .MinimumScale
   
3.         .TickLabels.Font.Size = 8
   
4.         .MajorGridlines.Border.ColorIndex = 20
   
5.         .HasTitle = True
   
6.         .AxisTitle.Text = "市盈率"
   
7.         .AxisTitle.Orientation = xlVertical
   
8.     End With
   
9.     With ch.Chart.Axes(xlValue, xlSecondary)
   
10.         .CrossesAt = .MinimumScale
    
11.         .TickLabels.Font.Size = 8
    
12.         .HasTitle = True
    
13.         .AxisTitle.Text = "市净率"
    
14.         .AxisTitle.Orientation = xlVertical
    
15.     End With
    
16.     With ch.Chart.Axes(xlCategory)
    
17.         .TickLabels.Font.Size = 8
    
18.         .TickLabels.NumberFormatLocal = "yyyy/m/d"
    
19.         .HasTitle = True
    
20.         .AxisTitle.Text = "日期"
    
21.         .AxisTitle.Characters.Font.Size = 8
    
22.         .AxisTitle.Characters.Font.Color = vbRed
    
23.     End With
    

复制代码

[/code]

        With ch.Chart
        .HasTitle = True
        .ChartTitle.Text = ch.Name
        .ChartTitle.Font.Size = 18
        .ChartTitle.Left = 137
        .ChartTitle.Top = 2
End With


    With ch.Chart
        .PlotArea.Width = 347
        .PlotArea.Left = 0
        .PlotArea.Top = 20
        .PlotArea.Height = 181
    End With

    With ch.Chart
        .HasLegend = True
        .Legend.Font.Size = 8
        .Legend.Font.ColorIndex = 5
        .Legend.Position = xlLegendPositionRight
End With


[/code]