Standard size while inserting pictures with VBA/macro

**Cor1988** · 11-30-2012, 03:48 PM

Hey guys,

I've got a VBA/maco for auto placing the picture with the standard size:

Height: 1,27 cm
Width: 1,69 cm

The VBA I use is:

Please Login or Register  to view this content.

But now I want the following size for all pictures:

Height: 1,1 cm
Width: 3,38 cm

How can I implement that in the code?

**Chippy** · 12-01-2012, 03:13 PM

I'm not sure if you're asking how to change your code to insert the pictures with the specified size, in which case change the .height and .width lines to:

Please Login or Register  to view this content.

Or how to resize the existing pictures, in which case run:

Please Login or Register  to view this content.

**sbagree** · 12-01-2012, 03:41 PM

great work man this is what i was searching for.....however I want to add multipul pics one below another.....how do i do that???

**Cor1988** · 12-04-2012, 04:06 AM

Sub test()
Dim myFiles, e
myFiles = Application.GetOpenFilename(, , , , True)
If Not IsArray(myFiles) Then Exit Sub
For Each e In myFiles
With ActiveSheet
With .Pictures.Insert(e)
.Left = Range("b1").Left + 289
.Top = Range("b1").Top + 100
.Height = Application.CentimetersToPoints(1.1)
.Width = Application.CentimetersToPoints(3.38)
End With
End With
Next
End Sub

So it should be like this? When I use this code, it still gives other sizes to picture. Example, I uploaded a picture with size 627 x 407, and when I insert that picture
into Excel using the VBA above I get the size:

Height: 2.19
Width: 3.38

which means that he does resize the width properly, but not the height.