返回列表下一主題上一主題發帖

使用vba如何插入固定大小的圖片

sorfeyshin

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 2
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2011-6-29
最後登錄: 2011-7-7

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-6-29 13:26 | 只看該作者

使用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

希望大大能指點迷津。謝謝。

Happkkevin

　暱稱: Kevin

中學生 Rank: 2

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

3^#

發表於 2011-7-2 05:42 | 只看該作者

測試使用此方法，發現一個問題
關於列高、欄寬與圖的尺寸有無固定比例
如oobird超版 .Height = 5.3 * 28.35 的28.35 換算公分

Sub Put_Picture_1()

On Error Resume Next
For i = 1 To 14

Rows(i).RowHeight = 40 '列高
Columns(12).ColumnWidth = 40 '欄寬

mm = Format(Cells(i, 11), "0")

Application.Cells(i, 12).Select

With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & mm & ".jpg")
.LockAspectRatio = msoFalse
.Height = 5.3 * 28.35 ' 5.3 cm
.Width = 5.8 * 28.35 '5.8 cm

End With

TOP

oobird