- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-6-29
- 最後登錄
- 2011-7-7
|
使用vba如何插入固定大小的圖片
如題。
我最近有爬文有看到了一個可以在某個欄位打入圖片檔名就可以插入想要插入的圖片，可是確不知道如何讓插入的圖片是固定的大小。
我想讓每一張圖片的大小是高5.3公分、寬5.8公分。vba碼如下：
Sub Put_Picture()
On Error Resume Next
For i = 1 To 14
mm = Format(Cells(i, 11), "0")
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & mm & ".jpg")
.Height = Cells(i, 12).Height
.Width = Cells(i, 12).Width
.Top = Cells(i, 12).Top
.Left = Cells(i, 12).Left
.Height = 153.3
.Width = 153.7
End With
Next
End Sub
希望大大能指點迷津。謝謝。 |
|
發表於 2011-6-29 13:26
| 
