looping through items in a dictionary

[Abe]

I have a dictionary, named dictCornerCellPics, whose items are all
picture objects. I want to loop through each picture's name (not key!)
and if it satisifies a condition, the code does something. This below
gives the gist of what I want to do, but doesn't work.

dim pic as Picture
dim picName as string

For each pic in dictCornerCellPics
picName = pic.name
if picName like "UL*" then
'does some stuff
end if
next pic

This code also returns an error if I use dictCornerCellPics

The code above returns an "Object Required" error. Anybody know what's
wrong with the above code, or can give a better/different way to
achieve the same thing?

 

[Bob Phillips]

Here is an example

Dim dict As Object
Dim ary
Dim i As Long

Set dict = CreateObject("Scripting.Dictionary")
With dict
.Add "a", "Athens" ' Add some keys and items.
.Add "b", "Belgrade"
.Add "c", "Cairo"
End With

ary = dict.Items

For i = 0 To dict.Count - 1
Debug.Print ary(i)
Next


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Chip Pearson]

When you do a For Each on a dictionary object, you enumerate the
Keys, not the Items. Yes, this is counter-intuitive. Change your
code to

For each pic in dictCornerCellPics.Items


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Abe]

Chip,

I tried that and it still returned the object error. Any guesses as to
why (I know my dictionary has been initialized, but it may
not--depending on the user's inputs--have anything in it)?

-Abe

 

[Bob Phillips]

Because it doesn't work that way. See my previous post.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)