在指定位置插入图片和Paste图片．

ningyong58

http://club.excelhome.net/viewth ... p;page=2&extra=
Sub zf()
    'On Error Resume Next
    Dim i%
    Dim MR As Range
    Set MR = Sheet3.Range("B18:F32")
    SSP = MR
        'If Not IsEmpty(MR) Then
            MR.Select
            ML = MR.Left
            MT = MR.Top
            MW = MR.Width
            MH = MR.Height
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
            Selection.ShapeRange.Fill.UserPicture "C:\Documents and Settings\Administrator\桌面\FinishDwg\WMF\中心点定位长方形.wmf"
            'ActiveWorkbook.Path & "C:\Documents and Settings\Administrator\桌面\FinishDwg\WMF\中心点定位长方形.WMF"
           ' ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\Administrator\桌面\FinishDwg\WMF\中心点定位长方形.wmf").Select
        'End If
End Sub

此程序中，在指定的区域中，插入图片的要点是，Selection.ShapeRange.Fill.UserPicture ．
下在的问题是，如何模拟这个程序，用Paste将图片，粘贴到指定位置．

ningyong58

现在要搞清楚
Paste和PasteSpecial的用法．
与 Selection.ShapeRange.Fill.UserPicture "C:\Documents and Settings\Administrator\桌面\FinishDwg\WMF\中心点定位长方形.wmf
的用法

ningyong58

PasteSpecial(Paste, Operation, SkipBlanks, Transpose)
参数Paste指定要粘贴的区域部分，可为表格 7 1所列的XlPasteType常量之一。
常量        值        描述
xlPasteAll         -4104        全部（默认值）
xlPasteAllExceptBorders        7        边框除外
xlPasteColumnWidths        8        列宽
xlPasteComments        -4144        批注
xlPasteFormats        -4122        格式
xlPasteFormulas        -4123        公式
xlPasteFormulasAndNumberFormats        11        公式和数字格式
xlPasteValidation        6        有效性验证
xlPasteValues        -4163        数值
xlPasteValuesAndNumberFormats        12        值和数字格式


证明用PasteSpecial粘贴可操作性不强．

ningyong58

Sub zf()
    'On Error Resume Next
    Dim i%
    Dim MR As Range
    Set MR = Sheet3.Range("a150:F232")

        'If Not IsEmpty(MR) Then
            MR.Select
            ML = MR.Left
            MT = MR.Top
            MW = MR.Width
            MH = MR.Height
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
            ActiveSheet.Paste
            'MR.PasteSpecial Paste:=xlPasteAll
            ', Operation:=xlNone, SkipBlanks:= _
               False, Transpose:=False

End Sub

形状定位
ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
            ActiveSheet.Paste可以定位到range，但形状不对．