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

67

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

      Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.
      Nivala
      32
      11240

    2. Aivan kauheaa

      Veikö koskiuoma taas ihmishengen? Se pitää kieltää!
      Imatra
      56
      8963

    3. Onko kaivattusi

      …mielestäsi älykäs, tai kenties tyhmä? Oma mielipide.
      Ikävä
      137
      5435

    4. Kuinka pitkä välimatka

      on teidän kotien välillä?
      Ikävä
      144
      3734

    5. Epäilen ettet edes

      Kehtaisi liikkua kanssani.
      Ikävä
      69
      3638

    6. Virkamiehille tarvitaan tuntuvat palkankorotukset

      Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi
      Maailman menoa
      35
      3594

    7. Oletko huomannut

      Yhden muutoksen?
      Ikävä
      40
      3328

    8. Jäikö meidän välit

      Mielestäsi Kesken?
      Ikävä
      59
      2665

    9. Olisipa saanut sinuun

      Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak
      Ikävä
      71
      2377

    10. Miltä mahtaa tuntua

      Sitten kun näet hänet pitkästä aikaa?
      Tunteet
      33
      1913
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt