如何在excel中用vba插入并调整图形的大小位置?

在使用Excel的过程中经常会碰到需要处理图形的时候。

在excel中插入图形后,它的位置和大小是最经常需要调整的。

在excel 2007版本以后,vba使用Shape对象来处理所有种类的图形对象,包括文本框,线条、图片等。

以下代码列举了一些常用的处理图形对象的方法。

Sub QQ1722187970()
    Dim oSP
    Dim oWK As Worksheet
    Dim sPath As String
    sPath = "C:\Users\Ruibron\Pictures\头像.png"
    Set oWK = ActiveSheet
    '插入图片的代码
    Set oSP = oWK.Shapes.AddPicture("C:\Users\Ruibron\Pictures\头像.png", msoCTrue, msoCTrue, 1, 1, 100, 100)
'重设图片大小的代码
    With oSP
        
        .ScaleHeight 1, msoCTrue, msoScaleFromTopLeft
        .ScaleWidth 1, msoCTrue, msoScaleFromTopLeft
    End With
    
    '让图片填充到具体的单元格内的代码
    With oSP
        .Left = oWK.Range("b2").Left
        .Top = oWK.Range("b2").Top
        .Height = oWK.Range("b2").Height
        .Width = oWK.Range("b2").Width
    End With
End Sub

 

       

发表评论