Hei, seuraava Kunden tuottamasta muokattu
Sub LisääKuvaKommenttiin()
Dim solu As Range
On Error Resume Next
For Each solu In Range("B3:AB12,B15:AB24,B27:AB36")
If Not solu.Comment Is Nothing Then solu.Comment.Delete
With solu
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\" & solu & ".jpg"
.Comment.Shape.Height = 300
.Comment.Shape.Width = 250
End With
Next
End Sub
Ongelma. Nyt tekee kommentin myös arvoltaan tyhjiin soluihin. MIllä saa estettyä sen. Eli kommentti vain jos solussa arvo.
Kiitos etukäteen
Sub LisääKuvaKommenttiin() MUOKKAUS
Kun ei osaa itse
1
<50
Vastaukset
Sub LisääKuvaKommenttiin()
Dim solu As Range
On Error Resume Next
For Each solu In Range("B3:AB12,B15:AB24,B27:AB36")
If Not solu = "" Then
If Not solu.Comment Is Nothing Then solu.Comment.Delete
With solu
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\" & solu & ".jpg"
.Comment.Shape.Height = 300
.Comment.Shape.Width = 250
End With
Next
End If
End Sub
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1272356En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1081403Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3341140- 1111104
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1041077Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.99975On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s44710Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks252699Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33690- 50674