帖子: 36
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: windows xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-20
最後登錄: 2015-3-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-11-19 20:03 | 只看該作者

[發問] 請問該如何變更工作表中的圖片索引值？

程式碼中使用 .Shapes.AddPicture方法來「由上而下」新增圖片到工作表中（故原始的索引值是依序編排的）
但因工作需求不一定會新增在資料最底端可能會從中插入現有的圖片之中（此插入的圖片索引值即為工作表中的總數）
因而在後續要指定特定圖片時就會發生誤判圖片的情況
目前查到可以使用Shapes(index)來得知圖片索引值但不知道該怎麼運用

是否應該將整個工作表的圖片都丟入陣列中(.Shapes.Range(Array(Picture _ ) ？？？)，再依序「由上而下」重新給予新的索引值？
（只是要怎麼告訴電腦排在愈上面的圖片索引值要愈小是利用「列數」嗎？）

樓主熱帖

HELLO !!

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2014-11-20 04:25 | 只看該作者

程式碼中使用 .Shapes.AddPicture方法來「由上而下」新增圖片到工作表中（故原始的索引值是依序編排的）
但 ...
baconbacons 發表於 2014-11-19 20:03

我的觀點是 : 是的.

對於某個圖片你若沒有事先紀錄它是什麼內容,
使用時要怎麼來比對?
母片嗎?
那不又是一次讀入檔案的動作,
而且圖片內容是否一致要用甚麼軟體或函數來做比對呢? (要知道實務上顯示的圖片大小是可能與檔案不一樣的 - 可調)

最容易看到的例子是網頁上的驗證密碼圖示,
同個圖形它在網頁上顯示出來的大小是一致的,
但在Excel上要做比對還是不容易.
更遑論實務上使用的圖片內容並不一定是規律(可轉成文字)的,
顯示出來的大小又不一定是相同的.

在新增圖片時就記錄下來索引值,
會是比較快速且容易使用的方式.

TOP

baconbacons

中學生 Rank: 2

帖子: 36
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: windows xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-20
最後登錄: 2015-3-6

3^#

發表於 2014-11-20 18:49 | 只看該作者

回復 2# luhpro
luhpro 大：
插入的圖片並沒有要比對用途，只是現有插入的圖片，有時候會有調整先後順序的需求，所以就必須利用索引值來指定
但問題就在於經過插入之後的圖片雖然肉眼看起來是排在第五張（舉例）實際上索引值可能為7（因為是第7張插入的）
所以在使用者能夠看到的就只有工作表的圖片順序  而看不到實際的索引值
因此才會有想要利用由上而下重新給定索引值的想法  才會讓使用者指定的圖片即實際的圖片
可是因為找到解法的方向  但是不知道該怎麼修改程式碼才會來家族討論

HELLO !!

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2014-11-20 20:24 | 只看該作者

回復 3# baconbacons
1. 單一圖片是否有跨儲存格，單一儲存格是否含多張圖片
2. 若無，換個角度去考慮 '取得某儲存格內的圖片' 若有這樣的功能是不是就能達成各種你要的指定圖片和各種操作的需求?

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

baconbacons

中學生 Rank: 2

帖子: 36
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: windows xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-20
最後登錄: 2015-3-6

5^#

發表於 2014-11-25 19:55 | 只看該作者

回復 4# stillfish00
stillfish00：
圖片所在的儲存格是合併儲存格。
另外取得特定儲存格的圖片這想法似乎是可行的，只是能否分享進一步的作法
我可以指出特定儲存格，但怎麼操作該儲存格的圖片？

HELLO !!

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2014-11-27 09:22 | 只看該作者

回復 5# baconbacons
若圖片在合併儲存格內

Function GetCellPic(rng As Range) As Object
Dim x
For Each x In ActiveSheet.Shapes
If Not Application.Intersect(x.TopLeftCell.MergeArea, rng) Is Nothing Then
Set GetCellPic = x
End If
Next
End Function

複製代碼

測試:

Sub Test()
Dim oPic As Object
Set oPic = GetCellPic(Range("F4"))
If oPic Is Nothing Then
MsgBox "nothing in this cell."
Else
MsgBox oPic.name
End If
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2014-11-30 20:22 | 只看該作者

回復 1# baconbacons
試試看

Option Explicit
Sub Ex()
Dim Sh As Worksheet, AR(), P(), i As Integer, X As Integer
Dim M As Single, M1 As Single, MyPicture As String
Set Sh = Sheet1
X = 1
For i = 1 To Sh.Shapes.Count
If Sh.Shapes(i).Type = msoPicture Then '表工作表上的圖案是圖片
ReDim Preserve AR(1 To X)
ReDim Preserve P(1 To X)
AR(X) = Sh.Shapes(i).Top '紀錄從圖案範圍中最頂端圖案的頂端到工作表頂端的距離
P(X) = i '紀錄表工作表上圖案的索引位置
X = X + 1
End If
Next
'******** 選取圖片 ********
With Application.FileDialog(msoFileDialogOpen)
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
.FilterIndex = 1
If .Show = True Then
MyPicture = .SelectedItems(1)
Else
MsgBox "沒有選擇圖片!!!"
Exit Sub
End If
End With
If X = 1 Then
If MsgBox("新增圖片 :" & MyPicture, vbYesNo, Sh.Name) = vbNo Then Exit Sub
i = 0
Else
On Error Resume Next
i = InputBox("新增圖片 :" & MyPicture & " 為第幾張圖片", Sh.Name & " 圖片共 " & X - 1 & " 張")
If Err <> 0 Then Exit Sub
If i = 0 Or i > X Then
MsgBox "第" & i & "張不在範圍中"
Exit Sub
End If
'*******移動圖片位置
For X = UBound(AR) To i Step -1 '圖片檔由下往上下移位置
M = Application.Small(AR, X)
M = Application.Match(M, AR, 0)
With Sh.Shapes(P(M))
If UBound(AR) = 1 And X = UBound(AR) Then
M1 = .Height + [A1].Height
ElseIf X > 1 Then
M1 = Application.Small(AR, X - 1)
M1 = .Top + (.Top - Application.Small(AR, X - 1))
ElseIf X = i Then
M1 = Application.Small(AR, X + 1)
End If
.Top = M1
End With
Next
End If
With Sh.Pictures.Insert(MyPicture)
If i = 0 Then
.Top = 0
.Left = 0
ElseIf i >= 1 And i <= UBound(AR) Then
.Top = Application.Small(AR, i)
.Left = Sh.Shapes(P(1)).Left
ElseIf i > UBound(AR) Then
M = Application.Small(AR, UBound(AR))
M = Application.Match(M, AR, 0)
.Top = Sh.Shapes(P(M)).Top + Sh.Shapes(P(M)).Height + [A1].Height
.Left = Sh.Shapes(P(M)).Left
End If
.Height = 200
.Width = 200
End With
End Sub