如何 在EXCEL中汇入一个图片，并且控制大小放到某个单元格??

kk_lee69

如何 在EXCEL中汇入一个图片，并且控制大小放到某个单元格??

可以利用AU3 开启 EXCEL后，利用程序 汇入一个图片控制大小
并且放到固定的单元格位置吗??

能提供一下重点的语法吗??

kk_lee69

回复 1# kk_lee69

網上查到語法

Sub InsertFace2Cell()
'匯入大頭照到C欄，並依照A欄為檔名
Dim strFacePath As String
strFacePath = ActiveWorkbook.Path & "\27\face"

For iNum = 2 To Range("A65535").End(xlUp).Row
    Range("C" & iNum).Select
    ActiveSheet.Pictures.Insert(strFacePath & Range("A" & iNum) & ".jpg").Select
    Selection.ShapeRange.Width = 75
    Columns("C:C").ColumnWidth = 11.88
    Rows(iNum & ":" & iNum).RowHeight = Selection.ShapeRange.Height
Next iNum

End Sub

改成 AU3 後 變成

        For $I = 2 To 4 Step 1
    $oExcel.Columns("C:C").ColumnWidth = 11.88
    $oExcel.Rows("1:3").RowHeight = 75
        $oExcel.Range("C" &$I).Select
        $oExcel.ActiveSheet.Pictures.Insert($strFacePath &($I-1)&".jpg").Select
        $oExcel.Selection.ShapeRange.Width = 11.8
        $oExcel.Selection.ShapeRange.Height=75
                
                
        Next 

測試後 圖片有進來3張 也縮小成我要的樣子  但是

全部疊再一起  沒有辦法 依照格子自己存放  為何呢??

kk_lee69

回复 2# kk_lee69

挖哩勒

2013可以自動排列好   2007 不可以

有人可以幫忙解決嗎??

saromman

我做过，你需要么？

kk_lee69

回复 4# saromman

是呀 能發個代碼學習一下嗎??

kevinch

.top=单元格.top
.left=单元格.left
这样先把图片左上角放到单元格左上角，然后再调整大小，一般先锁定纵横比lockaspectratio，然后再判断宽比单元格宽的比值和高比单元格高的比值哪个单，只调整一个大小即可，需要居中在单元格里就计算差值/2，不需要锁定纵横比的直接设置width和height与单元格相同即可