標題: 關於 excel 圖片相關問題 [打印本頁]

---

作者: mark15jill    時間: 2011-4-8 09:49     標題: 關於 excel 圖片相關問題

剛剛看了 http://forum.twbts.com/viewthread.php?tid=2637 板大的程式碼
還是很多不懂...

以下提出疑問點 煩請高手 指導 .
1.如果想要 點文字的超連結 會出現一個額外相關圖片(在表單內 如下列程式碼最下方) 該如何編寫
2.如果想要用控制鈕 (optionbutton) 去做挑選並且顯示於image方塊內(圖片大小符合該方塊) 又該如何編寫
3.假使該圖檔格式為連續 (如 001 002 003) 要如何將其自動編入顯示
不好意思 小弟新手剛接觸很多不懂 請多包涵

以下為小弟的 程式碼
Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+b
'
    Range("a1").Select
    ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:= _
        "c:=\aaa\001-01.JPG" _
        , TextToDisplay:="001-01.jpg"
        
    Range("b1").Select
          ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:= _
        "c:=\aaa\001-02.JPG" _
        , TextToDisplay:="001-02.jpg"
        
     Range("c1").Select
            ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:= _
        "c:=\aaa\001-03.JPG" _
        , TextToDisplay:="001-03.jpg"
        
      Range("D1").Select
            ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:= _
        "c:=\aaa\001-04.JPG" _
        , TextToDisplay:="001-04.jpg"


    With Worksheets("Sheet1").Range("B2:C4")
   .Value = "001-0"
     Val (a)

     End With

  Dim R As Range
  Set R = ActiveSheet.Range("a10")
  Call ActiveSheet.Shapes.AddPicture("c:=\aaa\001-01.JPG", msoFalse, msoTrue, R.Left, R.Top, 200, 200)

  Dim u As Range
  Set u = Worksheets("sheet1").Range("c10")
  Call ActiveSheet.Shapes.AddPicture("c:=\aaa\001-01.JPG", msoFalse, msoTrue, u.Left, u.Top, 200, 200)

  End If

---

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