Thread: Shapes and Groups and VBA Functions to modify

Hi All..Keep in mind my level of VBA is beginner.

Im in a project to create a moch-up of an engine's rotating assemblies.

So I have a piston created of a group of shapes.. ( call it Five shapes )
SHAPE#1 A BASIC RECTANGLE ( 2d view of a piston )
SHAPE#2 A BASIC LINE PARALLEL to the TOP
SHAPE#3 A BASIC LINE PARALLEL to the Above
SHAPE#4 A FINAL LINE PARALLEL to the Above
SHAPE#5 A CIRCLE BELOW the LINES in the MIDDLE of the RECTANGLE
** GROUP THESE as ("GROUP1") **

and I have a CrankShaft which has another five shapes..

The piston must move diagnally
The Crank is rotated in degrees.

Function cranktiming(Name As String, Angle)

ActiveSheet.Shapes(Name).Select

Selection.ShapeRange.Rotation = Angle

End Function

Executed from a Cell using Formula

 =cranktiming("group2",A1)

Even though I group shapes together, can I take a reference of one shape inside the group, and tie this to another shape inside another group, and have a resulting factor, Change the positions ? the connecting rod would be a static size. It would be tracking between the moving groups.. and the piston would track its position from a formula of the crank degree..\

Does that sound interesting ? Who would like to help out here with ideas..