返回列表 上一主題 發帖

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

sorfeyshin

帖子
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

希望大大能指點迷津。謝謝。
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-6-29 22:31 | 只看該作者
.LockAspectRatio = 0
.Width = 5.8 * 28.35
        .Height = 5.3 * 28.35

TOP

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

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題