標題: 使用vba如何插入固定大小的圖片 [打印本頁]

---

作者: sorfeyshin    時間: 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

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

---

作者: oobird    時間: 2011-6-29 22:31

.LockAspectRatio = 0
.Width = 5.8 * 28.35
        .Height = 5.3 * 28.35

---

作者: Happkkevin    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)