Dim objShape As Word.InlineShape Dim objChart As Object Dim objDataSheet As Object Dim axis As Graph.Axis Dim strKey as string 'bookmark的名称 '首先要在word中嵌入一个graph,然后把这个graph添加一个bookMark(书签),名字就是strKey的内容 objShape = mobjDoc.Bookmarks.Item(strKey).Range.InlineShapes.Item(1) objShape.OLEFormat.DoVerb(VerbIndex:=Word.WdOLEVerb.wdOLEVerbHide) objC...[ 查看全文 ]
Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown Me.PictureBox2.DoDragDrop(sender, DragDropEffects.Move) End Sub Private Sub GroupBox1_DragEnter(ByVal sender As Obje...[ 查看全文 ]