Office中国论坛/Access中国论坛

标题: 大家看看我这个宏应该怎么改 [打印本页]

作者: dmgyone 时间: 2007-12-24 13:24
标题: 大家看看我这个宏应该怎么改
' 快捷键: 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 时间: 2007-12-25 19:21
自己搞定了，玩电脑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 时间: 2007-12-25 19:27
还不会vba，强人，向你学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)