返回列表 上一主題 發帖

如何於excel的報價表單上輸入不同的Item帶入不同的圖片

dear sir
1.於插入-名稱-定義  建立一名稱
1.1例 X = INDEX(SHEET2!$BB,MATCH(SHEET1!$A$1,SHEET2!$AA,0))
1.2 SHEET2  B欄放圖  A欄KEY IN  1  2  3 ......
1.3 SHEET1!$A$1 依需求條件產生  1 或 2 或 3 .(判斷選取SHEET2對應A欄之B欄之 那一圖)
1.4 建立 TextBox1 放於指定處=X . 即可依變圖示
羅

TOP

試試如下

Sub Macro1()
Sheet2.Select
[a1].Select
Set a = ActiveSheet.Pictures.Insert("D:\photo\a.jpg")
   Sheet2.Rows(1).RowHeight = a.Height
   Sheet2.Columns(1).ColumnWidth = a.Width / 5.67
End Sub
羅

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格,可以成就事業,也可以儲積功德。
返回列表 上一主題