Insertion d'image en arrière plan dans une plage

Bonsoir le forum

J'ai un code qui me permet d'insérer une image dans une plage donnée.

Le souci c'est que j'ai déjà des formes ou objets dans cette plage et que lorsque je lance mon code ces objets s'auto-ajustent également et qu'ils se retrouvent sous mon image importée.

Je cherche à importer une image qui s'auto-ajuste à la plage mais en arrière plan et sans bien sur que cela modifie mes autres formes ou objets.

Si quelqu'un pouvait jeter un oeil

Je place un ficher avec le code et un exemple du résultat rechercher en feuille2

D'avance je vous remercie pour votre aide et votre disponibilité

90image.xlsm (586.87 Ko)

Bonjour,

Un essai ...

Déplacement de la commande msoSendToBack ...

Private Sub CommandButton1_Click()
Dim Emplacement As Range
Dim img As Object
Dim ShapeObj As Shape

    Application.ScreenUpdating = False

    Set Emplacement = ActiveSheet.Range("A2:L18")

    If Application.Dialogs(xlDialogInsertPicture).Show Then

        With Selection.ShapeRange    'Définit l'emplacement de l'image
            .LockAspectRatio = msoFalse
            .Left = Emplacement.Left
            .Top = Emplacement.Top
            .Height = Emplacement.Height
            .Width = Emplacement.Width
            .ZOrder msoSendToBack
        End With
    Else
        MsgBox "Insertion d'image interrompue."
    End If

    Application.ScreenUpdating = True
    Application.SendKeys ("{ESC}")  ' désélectionne image
End Sub

ric

Bonjour le forum

Bonjour ric, merci pour ton aide

Oui j'ai essayé et ça fonctionne pour l'arrière plan,

super pour ça, mais en fait toutes les images de plage du coup s'auto-ajustent

quand même

Bonjour,

Désolé pour le manque de tests ...

J'ai modifié le code dans mon post précédent ...

ric

Ok c'est bon pour moi

super

Merci ric pour ton aide et ta disponibilité

ric

Rechercher des sujets similaires à "insertion image arriere plan plage"