Osaisiko joku viisas ja fiksu ihminen kertoa, että pystyykö kaavion lisäämään kommenttikenttään? Kiitos paljon vastanneelle :)
Kaavion näkyminen kommenttikentässä
avuton
1242
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
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