利用excel2010 VBA完成以下功能：①选择sheet表1的图1这个对象，②将其复制，并且粘贴为图片；③给出每一行代码的注释

在Excel 2010的VBA中，你可以使用`Application`, `Sheets`, 和 `ActiveChart` 对象来操作图表。以下是完成上述功能的步骤及相应的VBA代码：

1. 首先，你需要引用Microsoft Excel Object Library (xlApp)库，通过添加`Dim objExcel As Excel.Application`来声明Excel应用程序对象。

' 引入Excel对象库
Option Explicit ' 提示未声明变量
Dim objExcel As Excel.Application ' 创建Excel应用对象

'Starting Excel Application
Set objExcel = New Excel.Application ' 初始化Excel应用

2. 然后，选择Sheet1并在其上找到图1。假设图1是一个名为"Chart1"的对象，可以使用`Sheets("Sheet1").Activate`来激活工作表，然后通过`.Charts("Chart1")`来获取图表对象。

' 激活Sheet1并选择图1
objExcel.Worksheets("Sheet1").Activate
Set chartObj = objExcel.ActiveSheet.ChartObjects("Chart1") ' 获取图1对象

3. 接下来，使用`.CopyPicture Appearance:=xlScreen, Format:=xlBitmap`来复制图表为屏幕模式的位图，并粘贴到剪贴板中。

' 复制图表为图片
chartObj.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

4. 最后，清理资源，关闭Excel对象。记得释放内存，防止内存泄漏。

' 清理资源
Set chartObj = Nothing ' 释放图表对象
Set objExcel = Nothing ' 关闭Excel应用程序
objExcel.Quit ' 完全退出Excel

'Release memory
Set objExcel = Nothing ' 再次设置为无，以防意外

完整的代码注释如下：

' 引入Excel对象库
Option Explicit

' 初始化Excel应用
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application

' 打开工作簿并激活Sheet1
objExcel.Workbooks.Open "<your workbook path>"
objExcel.Worksheets("Sheet1").Activate

' 获取Sheet1上的图1对象
Dim chartObj As ChartObject
Set chartObj = objExcel.ActiveSheet.ChartObjects("Chart1")

' 复制图表为屏幕模式位图到剪贴板
chartObj.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

' 清理资源
Set chartObj = Nothing
Set objExcel = Nothing
objExcel.Quit

'Release memory
Set objExcel = Nothing

请注意，你需要将`"<your workbook path>"`替换为你实际的工作簿路径。此外，如果图1的名称不是"Chart1"，请相应地修改代码中的名称。如果你需要将图片粘贴到另一个位置，可以使用Excel的对象模型中的其他方法来指定目标区域。