VBA for resize and align picture.

[Mousepad522]

Hi, I want to make a VBA Macro in Excel for resizing and centering pictures that are already in a worksheet.

The pictures are in cells. I was hoping to just adjust the picture height and width.

Any help would be great, I'm new to macros.

 

[BSALV]

shapes(1) is now within the borders of its topleftcell

Sub rezisen()
     With ActiveSheet
          Set shp = .Shapes(1)     'your shape
          Set c = shp.TopLeftCell
          With shp
               .Left = c.Left + 1
               .Top = c.Top + 1
               .Width = c.Offset(, 1).Left - .Left - 1
               .Height = c.Offset(1).Top - .Top - 1
          End With
     End With
End Sub

 

[Mousepad522]

shapes(1) is now within the borders of its topleftcell

Sub rezisen()
     With ActiveSheet
          Set shp = .Shapes(1)     'your shape
          Set c = shp.TopLeftCell
          With shp
               .Left = c.Left + 1
               .Top = c.Top + 1
               .Width = c.Offset(, 1).Left - .Left - 1
               .Height = c.Offset(1).Top - .Top - 1
          End With
     End With
End Sub

Thanks!! If I replace TopLeftCell with CenterCell will that place the picture in the middle? (I'm using the VBA to adjust and move barcodes for scanning so needs a space around it.)

 

[BSALV]

no, you see twice +1 and twice -1, if you increment that number, you get more space around, how many, just give it a try. 28 points for 1 cm 72 points for an inch.

 

[Mousepad522]

no, you see twice +1 and twice -1, if you increment that number, you get more space around, how many, just give it a try. 28 points for 1 cm 72 points for an inch.

Ok thanks!! I'll give it a try Monday!