|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub picture()
- '
- ' 快捷键: Ctrl+i
- '
- Dim i As Long, sPath As String, sfileName As String
- Dim shp As Shapes
- cColumn = ActiveCell.Column
- rRow = ActiveCell.Row
- sPath = "D:"
- Application.ScreenUpdating = False
- m = InputBox("输入插入图片开始行:")
- n = InputBox("输入插入图片结束行:")
- L = InputBox("输入插入图片的列号(大写B C D...):")
- If Val(n) < Val(m) Or Application.IsNumber(Val(m)) = False Or Application.IsNumber(Val(n)) = False Then
- MsgBox ("输入不规范!")
- Exit Sub
- Else
- For i = Val(m) To Val(n)
- If Range("A" & i) <> "" Then
- sfileName = sPath & Range("A" & i) & ".png"
-
- ActiveSheet.Shapes.AddPicture(sfileName, msoTrue, msoTrue, Range(L & i).Left, Range(L & i).Top, Range(L & i).Width, Range(L & i).Height).Select
- If Err <> 0 Then
- Err = 0
- End If
- End If
- Next i
- End If
- Application.ScreenUpdating = True
- End Sub
复制代码 |
|