Images dans Commentaire Directement

Bonjour Smirnoff,

Voici un exemple comment on peut travailler pour mettre un commentaire dans une cellule

Évidemment, retiens les lignes de code qui t'intéresse.

'----------------------------------
Sub AjoutCommentaire()

With Range("A1")
.ClearComments
Set Commentaire = .AddComment
End With

With Commentaire
.Text "Wow c'est vendredi."
With .Shape
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 38
.Fill.BackColor.SchemeColor = 22
.Fill.Transparency = 0#
'Ajoute le dessin de ton choix
.Fill.UserPicture "C:Dessin.gif"
.Fill.TwoColorGradient msoGradientHorizontal, 2
With .OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 2
'Autosize ou hauteur et largeur
'.Height = 20.5
'.Width = 70.5
'.AutoSize = True
End With
End With
End With
End Sub
'----------------------------------


Salutations!


"Smirnoff" <SI@ice.com> a écrit dans le message de news: mn.2cce7d585695733c.8256@ice.com...
Bonjour,

Voila j'ai un petit soucis.
J'espere que quelqu'un pourra m'aider, c'est assez complexe.

J'avais reussit, oui car c'est possible, mais je ne sais plus comment
... A creez un nouveau menu dans le menu deroulant de excel, qui me
permettait de saisir un texte (en l'occurance une adresse internet
d'une image web http://www.***.com/gnagna.jpg)
et de l'inserer dans un commentaire de la taille que je voulais, fixe
dans le VBA.

J'ai pu retrouevr ce morceau de code
Sub CommentaireImage()
Dim Adr As Variant
Adr = ""
Set cmt = ActiveCell.AddComment
With cmt.Shape
.Height = 226.5
.Width = 156
cmt.Text Text:=""

End With
End Sub

J'espere avoir été comprehensible.

merci de votre grande aide.

Smirnoff

Ps: en francai cela donnerais, J'aimerais cliquer droit sur une
cellule, choisir l'option Ajout Image, qu'une petite popup apparaisse,
me demande l'adresse WEB de mon Image, et me la colle en commentaire
dont la tailel serais .Height = 226.5
.Width = 156

Merci d'avance


--
Smirnoff Ice
Récapitulatif ABMDF
<<< http://users.skynet.be/fa345877/abmdf.html >>>

Merci bien, saurais tu me dire comment integrer cela au Menu "clic
droit"?
Style; je clic droti sur une cellule de mon choix et le menu apparais,
"Inserez commentaire Perso" par exemple

Meri d'avance

Dans un moment de folie éclairée, *Sir* *michdenis* a composé en ce
jour
béni du vendredi, 5/08/2005 ces fugaces logorhées

Bonjour Smirnoff,

Voici un exemple comment on peut travailler pour mettre un commentaire dans
une cellule

Évidemment, retiens les lignes de code qui t'intéresse.

'----------------------------------
Sub AjoutCommentaire()

With Range("A1")
.ClearComments
Set Commentaire = .AddComment
End With

With Commentaire
.Text "Wow c'est vendredi."
With .Shape
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 38
.Fill.BackColor.SchemeColor = 22
.Fill.Transparency = 0#
'Ajoute le dessin de ton choix
.Fill.UserPicture "C:Dessin.gif"
.Fill.TwoColorGradient msoGradientHorizontal, 2
With .OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 2
'Autosize ou hauteur et largeur
'.Height = 20.5
'.Width = 70.5
'.AutoSize = True
End With
End With
End With
End Sub
'----------------------------------


Salutations!


"Smirnoff" <SI@ice.com> a écrit dans le message de news:
mn.2cce7d585695733c.8256@ice.com... Bonjour,

Voila j'ai un petit soucis.
J'espere que quelqu'un pourra m'aider, c'est assez complexe.

J'avais reussit, oui car c'est possible, mais je ne sais plus comment
... A creez un nouveau menu dans le menu deroulant de excel, qui me
permettait de saisir un texte (en l'occurance une adresse internet
d'une image web http://www.***.com/gnagna.jpg)
et de l'inserer dans un commentaire de la taille que je voulais, fixe
dans le VBA.

J'ai pu retrouevr ce morceau de code
Sub CommentaireImage()
Dim Adr As Variant
Adr = ""
Set cmt = ActiveCell.AddComment
With cmt.Shape
.Height = 226.5
.Width = 156
cmt.Text Text:=""

End With
End Sub

J'espere avoir été comprehensible.

merci de votre grande aide.

Smirnoff

Ps: en francai cela donnerais, J'aimerais cliquer droit sur une
cellule, choisir l'option Ajout Image, qu'une petite popup apparaisse,
me demande l'adresse WEB de mon Image, et me la colle en commentaire
dont la tailel serais .Height = 226.5
.Width = 156

Merci d'avance

--
Smirnoff Ice
Récapitulatif ABMDF
<<< http://users.skynet.be/fa345877/abmdf.html >>>

Bon j'ai refait ma macro la voici pour ceux que ca peux aider

Private Sub Workbook_AddinInstall()
Set ctrl = Application.CommandBars("Cell").FindControl(ID: 31)
With Application.CommandBars("Cell").Controls. _
Add(Type:=msoControlButton, before:=ctrl.Index + 1)
.Caption = "Commentaire 2"
.OnAction = "Commentaire"
End With
End Sub

Private Sub Workbook_AddinUninstall()
Application.CommandBars("Cell").Controls("Commentaire 2").Delete
End Sub

Voila pour ThisWorkBook

Et pour Module 1
Option Private Module

Sub CommentaireDivx()

Dim Texte As String, Ligne As String
Dim I As Integer, J As Integer
Dim DObj As New DataObject
DObj.GetFromClipboard
Texte = DObj.GetText(1)

Set cmt = ActiveCell.AddComment
With cmt.Shape
.Height = 130.5
.Width = 96
.Fill.UserPicture Texte

End With
End Sub


Voila voila

--
Smirnoff Ice
Récapitulatif ABMDF
<<< http://users.skynet.be/fa345877/abmdf.html >>>

Bonjour Smirnoff,

Tu copies ce qui suit dans un module standard.

'Ajoute une commande au menu contextuel de la cellule
'----------------------------
Sub BarreMenuContextuel()

Dim MBar As CommandBar
Application.CommandBars("Cell").Reset
Set MBar = Application.CommandBars("Cell")

With MBar
With .Controls.Add(Type:=msoControlButton)
.OnAction = "AjoutComment"
.Caption = "Commentaire_Denis"
End With
End With

End Sub
'----------------------------

Sub AjoutComment()

With Range("A1")
.ClearComments
Set Commentaire = .AddComment
End With

With Commentaire
.Text "Wow c'est vendredi."
With .Shape
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 38
.Fill.BackColor.SchemeColor = 22
.Fill.Transparency = 0#
'Ajoute le dessin de ton choix
.Fill.UserPicture "C:Dessin.gif"
.Fill.TwoColorGradient msoGradientHorizontal, 2
With .OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 2
'Autosize ou hauteur et largeur
'.Height = 20.5
'.Width = 70.5
'.AutoSize = True
End With
End With
End With
End Sub
'----------------------------------


Salutations!