Kaavion näkyminen kommenttikentässä

vaikeampi tapa ilman koodia ja helpompi koodilla

ilmankoodia

1.Tallenna työkirja web sivuna
2. Lisää kommentti soluun
3. Tuplaklikkaa kommentin reunan päällä, missä on niitä palloja
4.Lomakkeelta valitse Colors and Lines
5. Color alasvetovalikosta valitse Fill Effects
6. valitse Picture
7. Klikkaa Select Picture
8.Liitä kaaviokuva websivun liitekansiosta
9. ok
10.ok


koodilla
moduuliin...

Sub LisaaKaavio()
Dim alue As Range
Dim muoto As Object
Set alue = ActiveCell
If Not alue.Comment Is Nothing Then
alue.Comment.Delete
End If
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Export Filename:="C:\KommenttiKaavio.gif", FilterName:="GIF"
Set muoto = alue.AddComment("")
muoto.Shape.Fill.UserPicture "C:\KommenttiKaavio.gif"
Range("A1").Select 'kaavion valinnan poisto
End Sub