Sub LisääKuvaKommenttiin() MUOKKAUS

Kun ei osaa itse

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

1

<50

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      125
      2295

    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      103
      1357

    3. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      319
      1079

    4. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      104
      1057

    5. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      109
      1051

    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      86
      929

    7. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      44
      700

    8. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      252
      689

    9. Ei koskaan saatu tuntea

      Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee
      Ikävä
      33
      670

    10. Mikä elokuva kuvaa ikävöityä henkilöä ja sinua?

      Otsikossa aloitus.
      Ikävä
      50
      664
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt