Bonjour,
j'ai des shapes que je veux positionner à des endroits précis, avec la macro
suivante cela marche :
Selection.ShapeRange.Top = [j6].Top
Selection.ShapeRange.Left = [j6].Left
le shape sélectionné se retrouve bien dans la case J6.
problème : cela ne marche plus si auparavant j'ai appliqué une rotation à ce
shape :
Selection.ShapeRange.IncrementRotation 90#
comment faire pour que le shape selectionné se positionne bien dans la case
J6 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tatanka
Salut legege,
Essaie cette macro :: Sub Essai() With Selection .ShapeRange.IncrementRotation 90 .Top = [J6].Top .Left = [J6].Left End With End Sub
Ça te convient ?
Serge
"legege" a écrit dans le message de news:
Bonjour, j'ai des shapes que je veux positionner à des endroits précis, avec la macro suivante cela marche : Selection.ShapeRange.Top = [j6].Top Selection.ShapeRange.Left = [j6].Left le shape sélectionné se retrouve bien dans la case J6. problème : cela ne marche plus si auparavant j'ai appliqué une rotation à ce shape : Selection.ShapeRange.IncrementRotation 90#
comment faire pour que le shape selectionné se positionne bien dans la case J6 ?
legege
Salut legege,
Essaie cette macro ::
Sub Essai()
With Selection
.ShapeRange.IncrementRotation 90
.Top = [J6].Top
.Left = [J6].Left
End With
End Sub
Ça te convient ?
Serge
"legege" <legege@discussions.microsoft.com> a écrit dans le message de news: 9EF169BF-8FC2-400A-8F34-9EBFDB21A760@microsoft.com...
Bonjour,
j'ai des shapes que je veux positionner à des endroits précis, avec la macro
suivante cela marche :
Selection.ShapeRange.Top = [j6].Top
Selection.ShapeRange.Left = [j6].Left
le shape sélectionné se retrouve bien dans la case J6.
problème : cela ne marche plus si auparavant j'ai appliqué une rotation à ce
shape :
Selection.ShapeRange.IncrementRotation 90#
comment faire pour que le shape selectionné se positionne bien dans la case
J6 ?
Essaie cette macro :: Sub Essai() With Selection .ShapeRange.IncrementRotation 90 .Top = [J6].Top .Left = [J6].Left End With End Sub
Ça te convient ?
Serge
"legege" a écrit dans le message de news:
Bonjour, j'ai des shapes que je veux positionner à des endroits précis, avec la macro suivante cela marche : Selection.ShapeRange.Top = [j6].Top Selection.ShapeRange.Left = [j6].Left le shape sélectionné se retrouve bien dans la case J6. problème : cela ne marche plus si auparavant j'ai appliqué une rotation à ce shape : Selection.ShapeRange.IncrementRotation 90#
comment faire pour que le shape selectionné se positionne bien dans la case J6 ?
legege
legege
Salut Tatanka,
parfait ça marche nickel ! pourquoi n'y ai-je pas pensé ?
merci et bonne journée legege
Salut legege,
Essaie cette macro :: Sub Essai() With Selection .ShapeRange.IncrementRotation 90 .Top = [J6].Top .Left = [J6].Left End With End Sub
Ça te convient ?
Serge
"legege" a écrit dans le message de news:
Bonjour, j'ai des shapes que je veux positionner à des endroits précis, avec la macro suivante cela marche : Selection.ShapeRange.Top = [j6].Top Selection.ShapeRange.Left = [j6].Left le shape sélectionné se retrouve bien dans la case J6. problème : cela ne marche plus si auparavant j'ai appliqué une rotation à ce shape : Selection.ShapeRange.IncrementRotation 90#
comment faire pour que le shape selectionné se positionne bien dans la case J6 ?
legege
Salut Tatanka,
parfait ça marche nickel !
pourquoi n'y ai-je pas pensé ?
merci et bonne journée
legege
Salut legege,
Essaie cette macro ::
Sub Essai()
With Selection
.ShapeRange.IncrementRotation 90
.Top = [J6].Top
.Left = [J6].Left
End With
End Sub
Ça te convient ?
Serge
"legege" <legege@discussions.microsoft.com> a écrit dans le message de news: 9EF169BF-8FC2-400A-8F34-9EBFDB21A760@microsoft.com...
Bonjour,
j'ai des shapes que je veux positionner à des endroits précis, avec la macro
suivante cela marche :
Selection.ShapeRange.Top = [j6].Top
Selection.ShapeRange.Left = [j6].Left
le shape sélectionné se retrouve bien dans la case J6.
problème : cela ne marche plus si auparavant j'ai appliqué une rotation à ce
shape :
Selection.ShapeRange.IncrementRotation 90#
comment faire pour que le shape selectionné se positionne bien dans la case
J6 ?
parfait ça marche nickel ! pourquoi n'y ai-je pas pensé ?
merci et bonne journée legege
Salut legege,
Essaie cette macro :: Sub Essai() With Selection .ShapeRange.IncrementRotation 90 .Top = [J6].Top .Left = [J6].Left End With End Sub
Ça te convient ?
Serge
"legege" a écrit dans le message de news:
Bonjour, j'ai des shapes que je veux positionner à des endroits précis, avec la macro suivante cela marche : Selection.ShapeRange.Top = [j6].Top Selection.ShapeRange.Left = [j6].Left le shape sélectionné se retrouve bien dans la case J6. problème : cela ne marche plus si auparavant j'ai appliqué une rotation à ce shape : Selection.ShapeRange.IncrementRotation 90#
comment faire pour que le shape selectionné se positionne bien dans la case J6 ?