Note: The other languages of the website are Google-translated. Back to English

Kako izvleči slike iz komentarjev v Excelu?

V Excelu lahko sliko v komentar vstavite čim lažje, toda, ali ste že kdaj razmišljali o tem, da bi slike iz polji s komentarji izvlekli v celice ali v določeno mapo? V tem članku bom govoril o tem, kako pridobiti slike iz komentarjev.

Izvlecite in shranite slike iz komentarjev v mapo s funkcijo Shrani kot

Izvlecite slike iz komentarjev v celice s kodo VBA


puščica modri desni mehurčekIzvlecite in shranite slike iz komentarjev v mapo s funkcijo Shrani kot

Če želite slike iz komentarjev izvleči in shraniti v mapo, storite naslednje:

1. Kopirajte list, ki vsebuje komentarje, s slikami, ki jih želite shraniti, v nov prazen delovni zvezek.

doc izvleči sliko iz komentarja 1

2. In nato kliknite file > Shrani kot da shranite to novo delovno knjigo kot spletna stran v določeni mapi, glejte posnetek zaslona:

doc izvleči sliko iz komentarja 2

3. Nato kliknite Shrani , da shranite datoteko, nato pojdite v določeno mapo za ogled shranjenih slik, v mapi se ustvari dve datoteki, ena je datoteka html, druga pa mapa, ki vsebuje vse slike in druge datoteke, glejte posnetek zaslona:

doc izvleči sliko iz komentarja 3


puščica modri desni mehurčekIzvlecite slike iz komentarjev v celice s kodo VBA

Če želite slike iz komentarjev izvleči v celice, kot je prikazano na spodnji sliki zaslona, ​​lahko tukaj ustvarim kodo VBA za vas, naredite tako:

doc izvleči sliko iz komentarja 4

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: Izvlecite slike iz komentarjev v celice:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3. Nato pritisnite F5 ključ za zagon te kode in vse slike komentarjev na trenutnem delovnem listu so bile ekstrahirane v celice naslednjega stolpca, glejte posnetek zaslona:

doc izvleči sliko iz komentarja 4


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (3)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam!! Prej sem vstavil slike v komentarje za dokument in nato slike izbrisal samo zato, da bi me nekdo prosil za kopije samo slik. To je bilo zelo preprosto in me je rešilo. Hvala še enkrat!
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Zelo zanimiv prispevek. Najlepša hvala.

Vendar ne vidim, kako ga uporabiti za uporabo slike za gumb moje ukazne vrstice. Naj razložim.

Svoje Excelove liste želim dati v skupno rabo brez pošiljanja ločenih slik za gumbe kot datoteke jpg (.Picture = LoadPicture(ImageFile).

Zato želim slike skriti v nekaterih skritih celicah ali v nekaterih komentarjih.
Ni težav s skrivanjem slik.
Vendar mi jih kasneje ne uspe pridobiti, da bi inicializirali moje gumbe.

Kakšna ideja za to?


Hvala za vaš čas.
Brian.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo! Muchisimas gracias por el aporte. Tengo un problema, a veces funciona ya veces no extrae las fotos .Por que puede ser si es la misma macro?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL