Excelfag here…
Might we have a place to upload an excel file?
Excel macro instructions
EXCEL
Open a new Excel document
Press Alt + F11 keys at the same time (This opens "Microsoft Visual Basic For Applications")
Copy and paste the following macro code snippet of macro code into new window "Microsoft Visual Basic For Applications"
‘This is the macro code snippet
S ub RandomShape()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 0 ' leave 0
b = 175 ' Adjust how many curves to add
c = 400 ' Adjust how big the shape should be
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 25, 25)
Do While a < b
.AddNodes msoSegmentCurve, msoEditingAuto, Rnd() * c, _
Rnd() * c, Rnd() * c, Rnd() * c, Rnd() * c, Rnd() * c
a = a + 1
Loop
.AddNodes msoSegmentCurve, msoEditingAuto, Rnd() * c, _
Rnd() * c, Rnd() * c, Rnd() * c, 25, 25
.ConvertToShape.Select
End With
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset11
End Sub
‘This is the end of the macro code snippet
Alt+Tab back to the Excel Window
In Excel click the "View" option at the top to see the "View" toolbar
Click the arrow under the "Macros" icon and select "View Macros"
Select "Sheet1.RandomShape" in the "Macro Name" box and Click the "Run" button
Click on the newly created shape.
If desired, Click the "Format" option at the top to see the "Format" toolbar (you must select the shape first)
Click the arrow next to the "Shape Fill" icon and select desired color
Click the arrow next to the "Shape Outline" icon and select desired color
Right click on the shape and choose "Copy" to copy it to your other project (Like Paint and Paint 3D)
PAINT
Copy new Shape from Excel
Paste into Paint
Click off pasted item
Click on tiny square on bottom and right edge to resize area.
Click ‘File’ from the top menu and choose ‘Save as”
Name your file and Click the “Save” button
PAINT 3D
Open Paint 3D
Choose the Menu icon at the top left
Choose Open, Browse, (navigate to the NEW shape file)
Click the “Open” button
Choose the Stickers icon at the top left
On the right choose the “Folder” icon (Choose your own sticker)
On the right choose the “+” plus sign (Add sticker)
Navigate to the image File to Update, Select it, and click the “Open” button
Resign the added image using the squares at the corner or edges
At the right Drag the “Sticker opacity” bar or update the percent.
Once you are done editing
Choose the Menu icon at the top left
Choose “Save as” then choose the “Image” icon
Navigate to where you will save the new image and click the “Save” button
Snippet for macro
Excel macro instructions (corrected snippet)
EXCEL
Open a new Excel document
Press Alt + F11 keys at the same time (This opens "Microsoft Visual Basic For Applications")
Copy and paste the following macro code snippet of macro code into new window "Microsoft Visual Basic For Applications"
‘This is the macro code snippet
Sub RandomShape()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 0 ' leave 0
b = 175 ' Adjust how many curves to add
c = 400 ' Adjust how big the shape should be
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 25, 25)
Do While a < b
.AddNodes msoSegmentCurve, msoEditingAuto, Rnd() * c, _
Rnd() * c, Rnd() * c, Rnd() * c, Rnd() * c, Rnd() * c
a = a + 1
Loop
.AddNodes msoSegmentCurve, msoEditingAuto, Rnd() * c, _
Rnd() * c, Rnd() * c, Rnd() * c, 25, 25
.ConvertToShape.Select
End With
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset11
End Sub
‘This is the end of the macro code snippet
Alt+Tab back to the Excel Window
In Excel click the "View" option at the top to see the "View" toolbar
Click the arrow under the "Macros" icon and select "View Macros"
Select "Sheet1.RandomShape" in the "Macro Name" box and Click the "Run" button
Click on the newly created shape.
If desired, Click the "Format" option at the top to see the "Format" toolbar (you must select the shape first)
Click the arrow next to the "Shape Fill" icon and select desired color
Click the arrow next to the "Shape Outline" icon and select desired color
Right click on the shape and choose "Copy" to copy it to your other project (Like Paint and Paint 3D)
PAINT
Copy new Shape from Excel
Paste into Paint
Click off pasted item
Click on tiny square on bottom and right edge to resize area.
Click ‘File’ from the top menu and choose ‘Save as”
Name your file and Click the “Save” button
PAINT 3D
Open Paint 3D
Choose the Menu icon at the top left
Choose Open, Browse, (navigate to the NEW shape file)
Click the “Open” button
Choose the Stickers icon at the top left
On the right choose the “Folder” icon (Choose your own sticker)
On the right choose the “+” plus sign (Add sticker)
Navigate to the image File to Update, Select it, and click the “Open” button
Resign the added image using the squares at the corner or edges
At the right Drag the “Sticker opacity” bar or update the percent.
Once you are done editing
Choose the Menu icon at the top left
Choose “Save as” then choose the “Image” icon
Navigate to where you will save the new image and click the “Save” button
Snippet for macro