Rotation de formes groupées

Le
Garnote
Bonsoir,

Voici un classeur conçu sous XL 2007 et enregistré
en format compatible 97-2003 :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijkamANaj.xls

Dans ce document, il y a une question au sujet de rotations
et retournements de formes groupées.
Les détails sont sur la seule feuille du classeur.

Bonne fin de semaine,
Serge
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Garnote
Le #20695021
Le but ultime étant de faire pivoter le cube
autour d'un axe perpendiculaire aux en-têtes
de colonnes et passant par le centre du cube.
Ne me semble pas évident ;-)

A+
Serge


"Garnote" %
Bonsoir,

Voici un classeur conçu sous XL 2007 et enregistré
en format compatible 97-2003 :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijkamANaj.xls

Dans ce document, il y a une question au sujet de rotations
et retournements de formes groupées.
Les détails sont sur la seule feuille du classeur.

Bonne fin de semaine,
Serge





Hervé
Le #20703891
Bonsoir Garnote,

Apporte les petites modifications sur les zones de texte et teste si cela te
va :

Sub Tourne()

Dim I As Integer
Dim H As Single
Dim G As Single

'inversion des chiffres (1<->3, 4<->6 et 7<->9)
'les zones de textes doivent être nommées
'avec le préfixe "Txt" suivi du chiffre
'quelles contiennent (Txt1, Txt2, etc...)
For I = 1 To 7 Step 3
H = ActiveSheet.Shapes("Txt" & I + 2).Top
G = ActiveSheet.Shapes("Txt" & I + 2).Left
ActiveSheet.Shapes("Txt" & I + 2).Top = _
ActiveSheet.Shapes("Txt" & I).Top
ActiveSheet.Shapes("Txt" & I + 2).Left = _
ActiveSheet.Shapes("Txt" & I).Left
ActiveSheet.Shapes("Txt" & I).Top = H
ActiveSheet.Shapes("Txt" & I).Left = G
Next I

With ActiveSheet.Shapes("mcube")
'retournement du shape
.Flip 0
'pivotement
For I = 1 To 36
.IncrementRotation 10
DoEvents
Next I
End With

End Sub


Hervé.


"Garnote" news:%
Bonsoir,

Voici un classeur conçu sous XL 2007 et enregistré
en format compatible 97-2003 :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijkamANaj.xls

Dans ce document, il y a une question au sujet de rotations
et retournements de formes groupées.
Les détails sont sur la seule feuille du classeur.

Bonne fin de semaine,
Serge





Publicité
Poster une réponse
Anonyme