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.
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
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.
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