| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 系统管理编程 >> 实例分析正文
最新推荐 更多内容
VB.Net为PowerPoint新增数据表格的实例
VB.Net为PowerPoint新增数据表格的实例
作者:Ilu    来源:乐博网整理     更新时间:2009-9-23

VB.Net为PowerPoint新增数据表格的代码如下:

Imports Microsoft.Office.Tools.Ribbon

Public Class Ribbon1

    Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load

    End Sub
    '新增数据表格
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
        Dim MyShape As PowerPoint.Shape
        Dim MySQL As String = "Select Top 10 客户ID,公司名称,地址 From 客户"
        Dim MyConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb"
        Dim MyTable As New System.Data.DataTable()
        Dim MyAdapter As New System.Data.OleDb.OleDbDataAdapter(MySQL, MyConnectionString)
        MyAdapter.Fill(MyTable)
        MyShape = Globals.ThisAddIn.Application.ActivePresentation.Slides(1).Shapes.AddTable(11, 3, 50, 70, 620, 400)
        With MyShape.Table '更多.net源码和实例,来自乐博网 www.lob.cn
            .Cell(1, 1).Shape.TextFrame.TextRange.Text = MyTable.Columns.Item(0).ColumnName
            .Cell(1, 2).Shape.TextFrame.TextRange.Text = MyTable.Columns.Item(1).ColumnName
            .Cell(1, 3).Shape.TextFrame.TextRange.Text = MyTable.Columns.Item(2).ColumnName
            .ApplyStyle("{B301B821-A1FF-4177-AEE7-76D212191A09}", False)
            Dim MyRow As Integer, MyCol As Integer
            For MyRow = 0 To MyTable.Rows.Count - 1
                For MyCol = 0 To MyTable.Columns.Count - 1
                    .Cell(2 + MyRow, 1 + MyCol).Shape.TextFrame.TextRange.Text = MyTable.Rows(MyRow).Item(MyCol)
                Next MyCol
            Next MyRow
        End With
    End Sub
End Class

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    PowerPoint实例(VB2010实例)
    VB.Net在PowerPoint中浏览图像文件

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]