fonction avancer ou reculer ?

Excel-lent

XLDnaute Barbatruc

• 4 Avril 2009

• #2

Re : fonction avancer ou reculer ?

Bonsoir et bienvenu sur le forum Limagerit,

limagerit à dit:

je souhaite intégrer dans la macro la fonction "reculer" afin de mettre l'image en arrière plan

Cliquez pour agrandir...

C'est dommage, tu avais fais le plus dur!!!

Code:

    [COLOR="Blue"][I]TonImage[/I][/COLOR].Select
    Selection.ShapeRange.ZOrder mso[COLOR="Blue"][B]SendBackward[/B][/COLOR]

Pour "reculer" :

Code:

    [COLOR="Blue"][I]TonImage[/I][/COLOR].Select
    Selection.ShapeRange.ZOrder mso[COLOR="Blue"][B]BringForward[/B][/COLOR]

Pour information, pour obtenir ces codes, il te suffisait d'utiliser l'enregistreur de macro 😉

Après évidement tu peux le simplifier :

Code:

    [COLOR="Blue"][I]TonImage[/I][/COLOR].Select
    Selection.ShapeRange.ZOrder mso[COLOR="Blue"][B]SendBackward[/B][/COLOR]

devient :

Code:

    [COLOR="Blue"][I]TonImage[/I][/COLOR].ShapeRange.ZOrder mso[COLOR="Blue"][B]SendBackward[/B][/COLOR]

Ou l'adapter si tu fais appelle plusieurs fois ton image

Code:

With [COLOR="Blue"][I]TonImage[/I][/COLOR]
    .ShapeRange.ZOrder mso[COLOR="Blue"][B]SendBackward[/B][/COLOR]
    [COLOR="Blue"][I](...suite...)[/I][/COLOR]
End With

Bonne soirée à toi

Edition : bonsoir Hulk

 

Dernière édition: 4 Avril 2009

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 4 Avril 2009

• #3

Re : fonction avancer ou reculer ?

Hello,

Si tu ne mets pas un petit fichier modèle, pas évident de savoir ce que tu veux réellement.

Peut-être un truc du style...

ActiveSheet.Shapes("Text Box 1").Select
Selection.ShapeRange.ZOrder msoBringToFront

Cdt, Hulk.

Oups, slt Excel-lent !

 

Dernière édition: 4 Avril 2009

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 4 Avril 2009

• #4

Re : fonction avancer ou reculer ?

Bonsoir limagerit, Re Excel-lent, Hulk,

Pour Hulk, un fichier exemple ne sert à rien ici. L'explication est claire et aucun fichier joint n'apportera de meilleure solution. (la psychose du fichier joint....)

Bonne soirée.

Jean-Pierre

 

Vote positif 0 Vote négatif

L

limagerit

XLDnaute Occasionnel

• 4 Avril 2009

• #5

Re : fonction avancer ou reculer ?

bonjour et merci pour vos réponses.

Je ne suis pas ceinture noir en macro et effectivement j'utilise l'enregistrement automatique seulement depuis qq temps celui ci n'affiche plus le code ou seulement partiellement, je suis donc condamné à faire du copier coller directement dans les modules.

Je joins ci dessous le fichier en question avec le résultat final souhaité et le bout de code écrit dans le text box.

pour info l'image est une capture d'écran quel nom dois je alors donner avec de résoudre l'équation : "TonImage.Select" ?

Encore merci du coup de pouce

 

Pièces jointes

• image macro.xls

  22 KB · Affichages: 84

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 4 Avril 2009

• #6

Re : fonction avancer ou reculer ?

Re,

Pour mettre une image partielle du code, tu pouvais mettre le code directement dans ton message plutôt qu'un fichier ....., NON ?

 

Vote positif 0 Vote négatif

L

limagerit

XLDnaute Occasionnel

• 4 Avril 2009

• #7

Re : fonction avancer ou reculer ?

effectivement c'est très malin


Sub Macro1()
'copy image in the active sheet
Range("b12").Select
ActiveSheet.Paste
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = 200
Selection.ShapeRange.Height = 150
Selection.ShapeRange.Rotation = 0#


End Sub

 

Vote positif 0 Vote négatif

L

limagerit

XLDnaute Occasionnel

• 4 Avril 2009

• #8

Re : fonction avancer ou reculer ? resolu et grand merci

j'arrive à ceci est cela la marche très bien .
ci joint le code si cela peut en aider d'autre.

Sub Macro1()
'copy image in the active sheet
Range("b12").Select
ActiveSheet.Paste
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = 200
Selection.ShapeRange.Height = 150
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Select
Selection.ShapeRange.ZOrder msoSendBackward


End Sub

 

Vote positif 0 Vote négatif

L

limagerit

XLDnaute Occasionnel

• 5 Avril 2009

• #9

Re : fonction avancer ou reculer ?

Visiblement après le code ne fonctionne plus, l'image reste en avant plan.
J'ai un soucis avec la mention " ton image" car il s'agit d'une capture d'écran.
comment puis alors l'identifier ?

Merci de votre aide

 

Vote positif 0 Vote négatif