ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 5845|回复: 3

[讨论] PPT中插入Excel图表和Microsoft Graph的应用.

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-2-2 06:40 | 显示全部楼层 |阅读模式
有兴趣的大侠请就这个帖子
<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

TA的精华主题

TA的得分主题

发表于 2010-2-2 07:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
讲解的比较透彻

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-2-2 16:37 | 显示全部楼层
发帖可能没有说清楚
此帖的目的是各位大侠在Ppt插入图表时,常使用哪种方法.

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

TA的精华主题

TA的得分主题

发表于 2023-1-24 10:14 | 显示全部楼层
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. 再好好学习这个贴子。




复制代码


  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]

图表.zip

402.13 KB, 下载次数: 8

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-25 16:11 , Processed in 0.033352 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表