大家看看我这个宏应该怎么改

dmgyone

' 快捷键: Ctrl+w
'
    Range("A2").Select
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\Administrator\My Documents\My Music\未命名-7.jpg"). _
        Select
    Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
    Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoFalse
End Sub


这个是我录制的宏。我的目的是想a1-a100,b1-b100都能执行这样的操作

dmgyone

自己搞定了，玩电脑n年，没学过这个东西，但宏跟程序其实差不多，
Dim i As Integer
        For i = 1 To 153
        Range("C" & i).Select
        ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\Administrator\My Documents\My Music\未命名-7.jpg"). _
        Select
    Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
    Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoFalse
    Application.CommandBars("Picture").Visible = False
    Next i
    End Sub

lynddnyl

还不会vba，强人，向你学习