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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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