標題:
如何插入圖片
[打印本頁]
作者:
basarasy
時間:
2010-6-29 13:56
標題:
如何插入圖片
請大大門教我如何這樣插入圖片.><
作者:
PD961A
時間:
2010-6-29 14:58
回復
1#
basarasy
試試看Googl e
http://briian.com/?p=2231
如何分解GIF動畫
軟體名稱:IrfanView
軟體版本:4.10
官方網站:http://www.irfanview.com/
軟體下載:按這裡下載
中文語系:按這裡(解壓縮後放到C:\Program Files\IrfanView\Languages資料夾)
試試看囉..
作者:
GBKEE
時間:
2010-6-29 16:35
本帖最後由 GBKEE 於 2010-6-29 19:42 編輯
回復
1#
basarasy
Sub Ex() '圖片的插入 非動畫
Dim Sh As Worksheet, E As Range
Set Sh = ActiveSheet
With Sh
.Pictures.Delete '刪除工作表上所有的圖片
.Range("A1:A10").RowHeight = 40
.Range("A1:A10").ColumnWidth = 20
'.Range("A1:A10").Offset(, 1).RowHeight = 40 '可改用 A1:A10 的內容
'.Range("A1:A10").Offset(, 1).ColumnWidth = 20 '可改用 A1:A10 的內容
For Each E In .Range("A1:A10")
With Sh.Pictures.Insert("http://forum.twbts.com/uc_server/avatar.php?uid=462&size=middle")
.Height = E.Height '圖片高度=E的寬度
.Width = E.Width '圖片寬度=E的高度
.Left = E.Left '置於E的左邊緣
.Top = E.Top '置於E的上邊緣
'With Sh.Pictures.Insert(E) '可改用 A1:A10 的內容
' .Height = E.Offset(, 1).Height '圖片高度=E向右一格的寬度
' .Width = E.Offset(, 1).Width '圖片寬度=E向右一格的高度
' .Left = E.Offset(, 1).Left '置於E向右一格的左邊緣
' .Top = E.Offset(, 1).Top '置於E向右一格的上邊緣
End With
Next
End With
End Sub
複製代碼
作者:
basarasy
時間:
2010-6-29 16:53
本帖最後由 basarasy 於 2010-6-29 17:03 編輯
回復
3#
GBKEE
謝謝 GBKEE版主.
這個對我很有用><
但是我想好像他那樣,去指定地方1次過把想要的圖加入
a欄出超連結 b欄出張細圖
作者:
GBKEE
時間:
2010-6-29 17:33
本帖最後由 GBKEE 於 2010-6-29 19:41 編輯
回復
4#
basarasy
Sub Ex()
Dim Ps, Pc, A
With Application.FileDialog(msoFileDialogOpen)
.Title = "尋找圖片檔"
.AllowMultiSelect = True '多重選取檔案
.ButtonName = "開啟圖片檔"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
.FilterIndex = 1
If .Show = False Then
MsgBox "沒有選擇圖片檔 ???": Exit Sub
Else
Set Ps = .SelectedItems
End If
End With
With ActiveSheet
Set A = .[A1]
.Pictures.Delete
.[A:A].Clear
End With
For Each Pc In Ps
With ActiveSheet.Pictures.Insert(Pc)
With A
.Offset(, 1).RowHeight = 40
.Offset(, 1).ColumnWidth = 20
ActiveSheet.Hyperlinks.Add Anchor:=A, Address:=Pc, TextToDisplay:=Pc
End With
.Height = A.Offset(, 1).Height
.Width = A.Offset(, 1).Width
.Left = A.Offset(, 1).Left
.Top = A.Offset(, 1).Top
End With
Set A = A.Offset(1)
Next
End Sub
複製代碼
作者:
basarasy
時間:
2010-6-29 17:48
回復
5#
GBKEE
真的很謝謝 GBKEE版主.^^
作者:
Hsieh
時間:
2010-6-29 19:17
Sub Ex()
Dim A As Range
On Error Resume Next
Sheet1.Pictures.Delete
For Each A In Selection
With ActiveSheet.Pictures.Insert(A.Text)
i = i + 1
If i <> ActiveSheet.Pictures.Count Then MsgBox "圖片未加入,請檢查路徑" & A: i = i - 1
.Top = A.Top
.Left = A.Offset(, 1).Left
.Height = 120
.Width = 120
A.RowHeight = .Height
A.Offset(, 1).ColumnWidth = .Width / 5.6
End With
Next
End Sub
複製代碼
作者:
basarasy
時間:
2010-6-29 20:18
回復
7#
Hsieh
謝謝 Hsieh版主.
這個可以寫少好多.><
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)