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
Izvlecite 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.
2. In nato kliknite file > Shrani kot da shranite to novo delovno knjigo kot spletna stran v določeni mapi, glejte posnetek zaslona:
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:
Izvlecite 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:
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:
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.
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!
