Creating a VBA code to crop a photo

workmacpc · #1 07-24-2023, 01:39 PM

Hi I'm trying to create a VBA code, that crops a photo to a shape, however whichever way i do it I cant seem to get the code to work.
Can anyone help me? I'm trying to crop the photos to a circle and then add a line colour.

Thanks in advance for any help!

JohnWilson · #2 07-31-2023, 03:26 AM

Basic code is

Code:

Sub croptoshape()
Dim shp As Shape
    Set shp = ActiveWindow.Selection.ShapeRange(1)
    If shp.Type = msoLinkedPicture Or shp.Type = msoPicture Then
        shp.AutoShapeType = msoShapeOval
        shp.Line.Weight = 10
        shp.Line.ForeColor.RGB = RGB(120, 120, 120)
    End If
End Sub

Note this will crop to an OVAL unless the original pic is square

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
creating HTML code for email	trevorc	Excel Programming	6	05-17-2021 09:29 PM
Need help creating vba code	Moot70	Excel Programming	18	11-03-2019 01:17 AM
Creating a QR code in microsoft word?	ayupchap	Word	1	08-20-2019 02:30 PM
Code to creating a custom TOC including too many styles	amer1749	Word VBA	4	07-03-2016 10:42 AM
Help Creating Macro to Crop/Resize Images	ineedmacrohelp	Word VBA	1	08-06-2015 06:46 AM