Discussion :

[pballesta]

Bonjour à tous les membres

Je peine à mettre au point le code suivant. Je souhaite pouvoir saisir un fichier image et insérer cette image en commentaire Excel en respectant les proportions de l'image initiale (avec éventuellement un facteur d'agrandissement)
Je souhaiterais de plus forcer le respect des proportions en cas de redimensionnement ultérieur de l'image (si on le fait à la main, il y a une check box pour cela)
On peut faire cela à la main mais c'est fastidieux si on doit le faire pour un grand nombre de cellules :
format de commentaire -> onglet Couleurs et traits -> Motifs et textures -> onglet image...)

Voici l'extrait de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub InsereImageCommentaireCelluleActive()
 
  Dim cmt As Comment
 
  'saisie du chemin d'une image
  nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
  If nf = False Then Exit Sub
 
  With ActiveCell
    .ClearComments
    .AddComment
    'on affecte l'image au commentaire nouvellement créé
    .Comment.Shape.Fill.UserPicture nf
    'l'erreur se produit sur l'instruction suivante
    .Comment.Shape.ScaleHeight 1.5, msoTrue
    .Comment.Shape.ScaleWidth 1.5, msoTrue
 
  End With   
  End Sub

J'obtiens donc une erreur "Autorisation d'utiliser l'objet refusée" dès que je tente de manipuler l'objet Shape.
Je dois certainement oublier quelque chose ou ne pas voir quelque chose d'évident.

Si vous avez un peu de temps à tuer
Merci de tout conseil

[Nicolas JACQUIN]

Bonjour,

en reprenant les codes de Boisgonthier Jacques,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub InsèreImageCommentaireCelluleActive()
   nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
   If nf = False Then Exit Sub
   With ActiveCell
     .ClearComments
     .AddComment
     .Comment.Shape.Fill.UserPicture nf
     .Comment.Shape.Height = 50
     .Comment.Shape.Width = 50
     .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
    End With
 End Sub

sur sa page http://boisgontierjacques.free.fr/pa...ommentaire.htm

Bonne recopie