Microsoft 365 Macros

[Bruno09]

Bonjour,
Voici une macro que j'utilise pour insérer une image dans une note. Mais au lieu qu'il y ait une dimension automatique du cadre j'aimerais pouvoir choisir la dimension mais j'ai beau chercher je ne trouves pas.

J'ai joint une capture d'écran de mon code.
Merci

 

[Staple1600]

Bonsoir le fil, Bruno09

Bruno09
L'usage c'est de joindre du code VBA en tant que texte dans le corps
du message.
Ce qui permets de faire un copier/coller dans le VBE d'Excel.

Tout contrevenant à cette règle d'airain se verra contraint de ranger sa jolie photo dans un portefeuille cuir, sorti de la Manufacture française d'armes et cycles de Saint-Étienne.



Et en langage Excel, la réaction
sera
ALT+F11
CTRL+A
CTRL+C
Retour ici
CTRL+V


NB: La présence d'emoticon indique clairement que ce message est rédigé sur un mode humoristique.

 

[laurent950]

Bonsoir,
Modifier la condition If

        If .Show = -1 Then
            Dim img As Object
            Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))

            ' Exemple : Position Image
            img.Left = 50
            img.Top = 150

            ' Exemple Dimenssion image
            img.Width = 150
            img.Height = 150
        Else
            thefile = 0
        End If

 

[Bruno09]

Merci Laurent950!

 

[Staple1600]

Re

=>Bruno09
Ceci dit le conseil du message#2 reste valide
Mieux coller le texte de la macro plutôt qu'une image
(comme l'a fait Laurent950)