返回列表 上一主題 發帖

如何插入圖片

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-29 13:56 | 只看該作者

如何插入圖片

請大大門教我如何這樣插入圖片.><

10060615516784de450d0f1865.gif (513.21 KB)

10060615516784de450d0f1865.gif

收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-6-29 14:58 | 只看該作者
回復 1# basarasy


    試試看Googl  ehttp://briian.com/?p=2231
如何分解GIF動畫

軟體名稱：IrfanView
軟體版本：4.10
官方網站：http://www.irfanview.com/
軟體下載：按這裡下載
中文語系：按這裡（解壓縮後放到C:\Program Files\IrfanView\Languages資料夾）
試試看囉..

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-6-29 16:35 | 只看該作者
本帖最後由 GBKEE 於 2010-6-29 19:42 編輯

回復 1# basarasy
  1. Sub Ex()  '圖片的插入 非動畫
  2.     Dim Sh As Worksheet, E As Range
  3.     Set Sh = ActiveSheet
  4.     With Sh
  5.         .Pictures.Delete   '刪除工作表上所有的圖片
  6.         .Range("A1:A10").RowHeight = 40
  7.         .Range("A1:A10").ColumnWidth = 20
  8.         
  9.         '.Range("A1:A10").Offset(, 1).RowHeight = 40   '可改用 A1:A10 的內容
  10.         '.Range("A1:A10").Offset(, 1).ColumnWidth = 20 '可改用 A1:A10 的內容
  11.         
  12.         For Each E In .Range("A1:A10")
  13.             With Sh.Pictures.Insert("http://forum.twbts.com/uc_server/avatar.php?uid=462&size=middle")
  14.                 .Height = E.Height  '圖片高度=E的寬度
  15.                 .Width = E.Width    '圖片寬度=E的高度
  16.                 .Left = E.Left      '置於E的左邊緣
  17.                 .Top = E.Top        '置於E的上邊緣
  18.             'With Sh.Pictures.Insert(E)  '可改用 A1:A10 的內容
  19.               '  .Height = E.Offset(, 1).Height  '圖片高度=E向右一格的寬度
  20.               '  .Width = E.Offset(, 1).Width    '圖片寬度=E向右一格的高度
  21.               '  .Left = E.Offset(, 1).Left      '置於E向右一格的左邊緣
  22.               '  .Top = E.Offset(, 1).Top        '置於E向右一格的上邊緣
  23.             End With
  24.     Next
  25.   End With
  26. End Sub
複製代碼

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
4#
發表於 2010-6-29 16:53 | 只看該作者
本帖最後由 basarasy 於 2010-6-29 17:03 編輯

回復 3# GBKEE

謝謝 GBKEE版主.
這個對我很有用><

但是我想好像他那樣,去指定地方1次過把想要的圖加入
a欄出超連結  b欄出張細圖
50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2010-6-29 17:33 | 只看該作者
本帖最後由 GBKEE 於 2010-6-29 19:41 編輯

回復 4# basarasy
  1. Sub Ex()
  2.     Dim Ps, Pc, A
  3.     With Application.FileDialog(msoFileDialogOpen)
  4.         .Title = "尋找圖片檔"
  5.         .AllowMultiSelect = True   '多重選取檔案
  6.         .ButtonName = "開啟圖片檔"
  7.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
  8.         .FilterIndex = 1
  9.         If .Show = False Then
  10.             MsgBox "沒有選擇圖片檔 ???": Exit Sub
  11.         Else
  12.            Set Ps = .SelectedItems
  13.         End If
  14.     End With
  15.     With ActiveSheet
  16.         Set A = .[A1]
  17.         .Pictures.Delete
  18.         .[A:A].Clear
  19.     End With
  20.     For Each Pc In Ps
  21.         With ActiveSheet.Pictures.Insert(Pc)
  22.             With A
  23.                 .Offset(, 1).RowHeight = 40
  24.                 .Offset(, 1).ColumnWidth = 20
  25.                 ActiveSheet.Hyperlinks.Add Anchor:=A, Address:=Pc, TextToDisplay:=Pc
  26.             End With
  27.             .Height = A.Offset(, 1).Height
  28.             .Width = A.Offset(, 1).Width
  29.             .Left = A.Offset(, 1).Left
  30.             .Top = A.Offset(, 1).Top
  31.         End With
  32.         Set A = A.Offset(1)
  33.     Next
  34. End Sub
複製代碼

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
6#
發表於 2010-6-29 17:48 | 只看該作者
回復 5# GBKEE


真的很謝謝 GBKEE版主.^^
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
276  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2010-6-29 19:17 | 只看該作者
  1. Sub Ex()
  2. Dim A As Range
  3. On Error Resume Next
  4. Sheet1.Pictures.Delete
  5. For Each A In Selection
  6.   With ActiveSheet.Pictures.Insert(A.Text)
  7.   i = i + 1
  8.   If i <> ActiveSheet.Pictures.Count Then MsgBox "圖片未加入,請檢查路徑" & A: i = i - 1
  9.      .Top = A.Top
  10.      .Left = A.Offset(, 1).Left
  11.      .Height = 120
  12.      .Width = 120
  13.      A.RowHeight = .Height
  14.      A.Offset(, 1).ColumnWidth = .Width / 5.6
  15.   End With
  16. Next
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
8#
發表於 2010-6-29 20:18 | 只看該作者
回復 7# Hsieh

謝謝 Hsieh版主.
這個可以寫少好多.><
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題