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 pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!