fonction avancer ou reculer ?

[limagerit]

Bonjour à tous et merci d'avance pour votre aide.

Je réalise une macro sur l'insertion automatique d'image.
Cette image est recouverte d'une zone de texte

lors du collage de l'image, elle vient recouvrir la zone de texte et je souhaite intégrer dans la macro la fonction "reculer" afin de mettre l'image en arrière plan et conserver ma zone de texte au dessus.

si une bonne âme peut me faire parvenir la ligne de code, je suis bien sur preneur 🙂

Merci

 

[Excel-lent]

Re : fonction avancer ou reculer ?

Bonsoir et bienvenu sur le forum Limagerit,

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

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

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

Pour "reculer" :

    [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 :

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

devient :

    [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

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

 

[Hulk]

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 !

 

[jeanpierre]

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

 

[limagerit]

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

 

[jeanpierre]

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 ?

 

[limagerit]

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

 

[limagerit]

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

 

[limagerit]

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