Microsoft 365 Macros

Bruno09

XLDnaute Nouveau
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
 

Pièces jointes

  • Capture d’écran 2021-01-18 102437.png
    Capture d’écran 2021-01-18 102437.png
    45.3 KB · Affichages: 28
Solution
Bonsoir,
Modifier la condition If
VB:
        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

Staple1600

XLDnaute Barbatruc
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

XLDnaute Accro
Bonsoir,
Modifier la condition If
VB:
        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
 

Discussions similaires

Réponses
2
Affichages
355
Réponses
1
Affichages
269
Compte Supprimé 979
C