Positioning all pictures

Hi

Can anyone please advise on how to change the positioning properties
for 'all' the pictures on my spreadsheet?

In order to sort properly without the results distorting the pictures,
I need to set their positioning to "Move but don't size with cells".
Doing this individually would mean selecting format picture then going
on to the properties tab. However I can't seem to be able to do this
for multiple pictures, and I have lots.

I suspect the answer is in VBA (whatever that is!) I have used VBA
before to set up a macro for something but just followed exactly the
very good instructions from another poster, so I'm completely novice at
it really.

Any help would be greatly appreciated!

gejmond

I got this when I recorded a macro (to fix one picture):

Option Explicit
Sub Macro1()
ActiveSheet.Shapes("Picture 1").Select
With Selection
.Placement = xlMove
.PrintObject = True
End With
End Sub


Getting rid of the .select and cycling through all the pictures, I could use
this:

Option Explicit
Sub testme()
Dim myPict As Picture
For Each myPict In ActiveSheet.Pictures
myPict.Placement = xlMove
Next myPict
End Sub

I also got rid of the .printobject stuff.

gejmond wrote:
>
> Hi
>
> Can anyone please advise on how to change the positioning properties
> for 'all' the pictures on my spreadsheet?
>
> In order to sort properly without the results distorting the pictures,
> I need to set their positioning to "Move but don't size with cells".
> Doing this individually would mean selecting format picture then going
> on to the properties tab. However I can't seem to be able to do this
> for multiple pictures, and I have lots.
>
> I suspect the answer is in VBA (whatever that is!) I have used VBA
> before to set up a macro for something but just followed exactly the
> very good instructions from another poster, so I'm completely novice at
> it really.
>
> Any help would be greatly appreciated!
>
> gejmond

--

Dave Peterson

Thanks v much Dave for replying

I copied and pasted:
> Option Explicit
> Sub testme()
> Dim myPict As Picture
> For Each myPict In ActiveSheet.Pictures
> myPict.Placement = xlMove
> Next myPict
> End Sub

as a new macro. Not sure this is what you meant for me to do but it
doesn't seem to do anything. I will keep on playing with it....

After you run the macro, right click on one of the pictures and see how the move
and size is set.

gejmond wrote:
>
> Thanks v much Dave for replying
>
> I copied and pasted:
> > Option Explicit
> > Sub testme()
> > Dim myPict As Picture
> > For Each myPict In ActiveSheet.Pictures
> > myPict.Placement = xlMove
> > Next myPict
> > End Sub
>
> as a new macro. Not sure this is what you meant for me to do but it
> doesn't seem to do anything. I will keep on playing with it....

--

Dave Peterson