VBA代码：使用已安装扫描仪扫描图片并插入Excel 2007

以下是使用VBA语言编写调用已安装扫描仪扫描图片，并将扫描的图片插入EXCEL2007的代码：

Sub ScanAndInsertPic()

    Dim Scnr As WIA.CommonDialog
    Dim Img As WIA.ImageFile
    Dim Pic As Shape
    
    Set Scnr = New WIA.CommonDialog
    Set Img = Scnr.ShowAcquireImage
    Set Pic = ActiveSheet.Shapes.AddPicture(Img.FileName, False, True, 0, 0, -1, -1)
    
End Sub

在使用此代码之前，需要确保已经安装了扫描仪以及WIA (Windows Image Acquisition)组件。

在代码中，我们首先创建了WIA.CommonDialog对象，然后使用它的ShowAcquireImage方法调用扫描仪扫描图片，并将扫描得到的图片保存到WIA.ImageFile对象Img中。

最后，我们使用ActiveSheet.Shapes.AddPicture方法将Img中的图片插入到当前活动的工作表中。

注意，由于不同的扫描仪和WIA组件版本可能会有所不同，因此可能需要对代码进行适当的修改和调试。