暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
關於 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 |
|
發表於 2011-4-8 09:49
| 
