kk_lee69 发表于 2015-11-30 01:02:30

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

本帖最后由 kk_lee69 于 2015-11-30 02:45 编辑

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

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

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

kk_lee69 发表于 2015-11-30 02:49:06

回复 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 发表于 2015-11-30 11:06:27

回复 2# kk_lee69

挖哩勒

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

有人可以幫忙解決嗎??

saromman 发表于 2015-12-2 10:39:41

我做过，你需要么？

kk_lee69 发表于 2015-12-3 09:08:42

回复 4# saromman

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

kevinch 发表于 2015-12-24 21:39:33

.top=单元格.top
.left=单元格.left
这样先把图片左上角放到单元格左上角，然后再调整大小，一般先锁定纵横比lockaspectratio，然后再判断宽比单元格宽的比值和高比单元格高的比值哪个单，只调整一个大小即可，需要居中在单元格里就计算差值/2，不需要锁定纵横比的直接设置width和height与单元格相同即可
页: [1]
查看完整版本: 如何 在EXCEL中汇入一个图片，并且控制大小放到某个单元格??