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. Saako kaunis ihminen parempaa kohtelua?

      Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa
      Sinkut
      106
      3014

    2. Ei ole kyllä mennyt

      Kovin hyvin kun alussa pieni sekoaminen hänestä 😏
      Ikävä
      10
      1874

    3. En rehellisesti usko et oisit

      Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos
      Ikävä
      37
      1855

    4. Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa

      Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin
      NATO
      394
      1723

    5. Näin sinusta taas unta!

      Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly
      Ikävä
      21
      1631

    6. Nainen, olet jotenkin lumoava

      Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel
      Ikävä
      68
      1457

    7. Olet muutenkin tyhmä

      Ja käyttäydyt epäasiallisesti siinä työssäsi.
      Ikävä
      119
      1287

    8. Se sinun kaipauksen kohde

      Ei todellakaan käy täällä höppänä mies.
      Ikävä
      13
      1186

    9. En muuttaisi sinusta mitään

      Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul
      Ikävä
      9
      1156

    10. Et katso sitä

      Niinkuin minua. Ehkä se luo toivetta
      Ikävä
      20
      1049
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt