position shape dans feuille

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : position shape dans feuille

lal1

Bonsoir,

je voudrais savoir comment faire pour avoir les coordonnée d'une shape dans une page.

Je connais le nom de la shape donc j'arrive a la selectionner, mais je voudrais savoir ou elle se trouve afin de pouvoir coller ou creer une autre shape au plus proche.

Merci

PS: macro pour excel

Publicité

kiki29

Salut,

With Feuil1.Shapes("Rectangle 1" )
Debug.Print .Left, .Top, .Width, .Height
End With

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

lal1

euh désolé mais je ne comprend pas comment l'utiliser.
tu pourrais me faire un exemple avec des msgbox me montrant les coordonnee en X et Y.

PS: est ce valable sur toute la feuille, meme les partie que l'on ne vois pas qui se trouve plus bas ou plus haut selon le scrowling ?

kiki29

Salut,

Sub Tst2()
With Feuil1.Shapes("Rectangle 1" )
MsgBox "Left : " & .Left & vbCrLf _
& "Top : " & .Top & vbCrLf _
& "Width : " & .Width & vbCrLf _
& "Height : " & .Height & vbCrLf, vbOKOnly, ""
End With
End Sub

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

lal1

ok merci, je ne suis pas encore trop a l aise avec les with, je ne sais pas trop quand les utiliser

kiki29

Re, pour parcourir toutes les feuilles et Shapes

Option Explicit

Sub Tst()
Dim Ws As Worksheet
Dim Shp As Shape
For Each Ws In ThisWorkbook.Worksheets
For Each Shp In Ws.Shapes
With Shp
MsgBox Ws.Name & vbCrLf & Shp.Name & vbCrLf & _
"Left : " & .Left & vbCrLf _
& "Top : " & .Top & vbCrLf _
& "Width : " & .Width & vbCrLf _
& "Height : " & .Height & vbCrLf, vbOKOnly, ""
End With
Next Shp
Next Ws
End Sub

Message édité par kiki29 le 14-10-2011 à 22:31:54

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

FlorentG

Tu peux faire directement

With Shp

Au lieu de rechercher à nouveau la shape via Ws.Shapes(shp.name)

kiki29

Re, arf effectivement

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

lal1

et ben merci pour toute cette aide ;o)

je reviendrais ;oD

FORUM HardWare.fr

Programmation

VB/VBA/VBS

position shape dans feuille

Sujets relatifs
Sélectionner la première cellule de chaque feuille	Copier 37x le même tableau sur une feuille Excel
[VBA-Excel] Protéger une partie de la feuille par Macro	[Résolu] Calcul de position de point.
feuille de calcul dynamique dans une page html	[RE]Excel : Macro : Lien vers la deuxième feuille quelque soit son nom
Excel : Nom copie de feuille 1= contenu plusieurs cellules feuille 1	Mémoriser la position de l'ascenseur
XSLT: utilisation de la fonction position() dans <for-each> imbriqués	Récuperer la position d'une ligne
Plus de sujets relatifs à : position shape dans feuille

Page générée en 0.036 secondes