Encontré un código que trasteándolo un poco también
gira las 7 imágenes sin posicionarlas. Dejo el código por si le sirve a alguien.
Sólo hay que modicar el Radio para espaciar entre sí las imágenes.
Código:
Static Grado%
Dim Radio!, CPi!
Dim cx!, cy!
CPi = Atn(1) / 45 'Para pasar de Sexagesimales a radianes
Radio = IIf(Me.Height > Me.Width, Me.Width / 3, Me.Height / 3) 'Radio de giro
cx = Me.Width / 2 'Centro de giro en X
cy = Me.Height / 2 'Centro de giro en Y
If Grado = 360 Then
Grado = 1
Else
Grado = Grado + 1
End If
With Image1
.Left = cx + Radio * Cos(Grado * CPi) - .Width / 2
.Top = cy + Radio * Sin(Grado * CPi) - .Height / 2
End With
With Image2
.Left = cx - Radio * Cos(Grado * CPi) - .Width / 2
.Top = cy - Radio * Sin(Grado * CPi) - .Height / 2
End With
With Image3
.Left = cx - Radio * Cos((Grado + 90) * CPi) - .Width / 2
.Top = cy - Radio * Sin((Grado + 90) * CPi) - .Height / 2
End With
With Image4
.Left = cx + Radio * Cos((Grado + 90) * CPi) - .Width / 2
.Top = cy + Radio * Sin((Grado + 90) * CPi) - .Height / 2
End With
With Image5
.Left = cx + Radio * Cos((Grado - 45) * CPi) - .Width / 2
.Top = cy + Radio * Sin((Grado - 45) * CPi) - .Height / 2
End With
With Image6
.Left = cx - Radio * Cos((Grado - 45) * CPi) - .Width / 2
.Top = cy - Radio * Sin((Grado - 45) * CPi) - .Height / 2
End With
With Image7
.Left = cx - Radio * Cos((Grado + 45) * CPi) - .Width / 2
.Top = cy - Radio * Sin((Grado + 45) * CPi) - .Height / 2
End With
With Image8
.Left = cx + Radio * Cos((Grado + 45) * CPi) - .Width / 2
.Top = cy + Radio * Sin((Grado + 45) * CPi) - .Height / 2
End With
' Y así sucesivamente
No sé poner las funciones de Copiar en los mensajes, lo siento. Si alguien me lo explica se lo agradezco porque es muy cómodo de utlizar.
Un saludo