如何用VBA确定EXCEL 图表在工作表中的位置

Dim sh As Worksheet Set sh = ThisWorkbookActiveSheet For i = 1 To ThisWorkbookSheetsCount ThisWorkbookSheets(i)Name = shName Exit For Next i的值就是第“几”个工作表

提供网上示例代码供参考（此代码的思路是遍历 word 文档中的 Shapes ，缩放到原始尺寸，再转粘贴到 Excel 中，借用 Excel 的 ChartObjects 提供的导出功能实现原样导出）：

    Rem 工具--引用--勾选 Microsoft Excel xx Object Library

    Dim myshape As Object, ExcelApp As New ExcelApplication

    Dim Excel As Workbook, i%, z%

    Set Excel = ExcelAppWorkbooksAdd

    For Each myshape In ActiveDocumentInlineShapes

        If myshapeType = 3 Then

            i = i + 1

            myshapeSelect

            Set myshape = myshapeConvertToShape

            Rem 以下代码将以原始比例展示

            With myshape

                ScaleHeight 1, True, msoScaleFromMiddle

                ScaleWidth 1, True, msoScaleFromMiddle

            End With

            SelectionCopy

            With ExcelActiveSheetChartObjectsAdd(0, 0, myshapeWidth, myshapeHeight)Chart

                Paste

                Export ActiveDocumentPath & "" & i & "png"

                ParentDelete

            End With

         End If

    Next

    ExcelClose False

    ExcelAppQuit

End Sub

Private Sub right_Click()

Sheets("sheet4")Shapes("picture 3")Copy 'sheet4为目标所在工作表，自行修改

Range("A1")Select

paste

End Sub

以上就是关于如何用VBA确定EXCEL 图表在工作表中的位置全部的内容，包括:如何用VBA确定EXCEL 图表在工作表中的位置、如何用vba取得一个word文件中的所有的图片、如何用VBA选中特定sheet页中的特定图片等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！