[font=Courier New][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Picture_Click()
[color=darkblue]Static[/color] Dict [color=darkblue]As[/color] Dictionary
[color=darkblue]Static[/color] MyPics() [color=darkblue]As[/color] [color=darkblue]Variant[/color]
[color=darkblue]Static[/color] Cnt [color=darkblue]As[/color] [color=darkblue]Long[/color]
[color=darkblue]Static[/color] c [color=darkblue]As[/color] [color=darkblue]Long[/color]
[color=darkblue]Dim[/color] Shp [color=darkblue]As[/color] Shape
Cnt = Cnt + 1
[color=darkblue]If[/color] Cnt = 1 [color=darkblue]Then[/color]
[color=darkblue]Set[/color] Dict = CreateObject("Scripting.Dictionary")
[color=darkblue]End[/color] [color=darkblue]If[/color]
[color=darkblue]Set[/color] Shp = Me.Shapes(Application.Caller)
[color=darkblue]If[/color] [color=darkblue]Not[/color] Dict.Exists(Shp.Name) [color=darkblue]Then[/color]
c = c + 1
Dict.Add Shp.Name, c
[color=darkblue]ReDim[/color] [color=darkblue]Preserve[/color] MyPics(1 [color=darkblue]To[/color] 2, 1 To c)
MyPics(1, c) = Shp.Name
MyPics(2, c) = [color=darkblue]True[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
[color=darkblue]If[/color] MyPics(2, Dict.Item(Shp.Name)) = [color=darkblue]True[/color] [color=darkblue]Then[/color]
MyPics(2, Dict.Item(Shp.Name)) = [color=darkblue]False[/color]
Shp.ScaleHeight 1.5, msoTrue [COLOR="Green"]'increase height by 50%[/COLOR]
Shp.ScaleWidth 1.5, msoTrue [COLOR="Green"]'increase width by 50%[/COLOR]
[color=darkblue]Else[/color]
MyPics(2, Dict.Item(Shp.Name)) = [color=darkblue]True[/color]
Shp.ScaleHeight 1, msoTrue [COLOR="Green"]'scale to original height[/COLOR]
Shp.ScaleWidth 1, msoTrue [COLOR="Green"]'scale to original width[/COLOR]
[color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color]
[/font]