Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izvleči slike iz komentarjev v Excelu?

V Excelu lahko v komentarje vstavite sliko čim bolj enostavno, vendar ste kdaj razmišljali, ali želite iz polja za komentarje izpisati slike v celice ali v določeno mapo? V tem članku bom govoril o tem, kako prenašati slike iz komentarjev.

Izvlečite in shranite slike iz komentarjev v mapo s funkcijo Save As

Izvlečite slike iz komentarjev v celice s kodo VBA


puščica modra desno mehurčekIzvlečite in shranite slike iz komentarjev v mapo s funkcijo Save As

Če želite izpisati in shraniti slike iz komentarjev v mapo, storite naslednje:

1. Kopirajte list, ki vsebuje komentarje s slikami, ki jih želite shraniti v novo prazno delovno knjižico.

doc ekstrakt slike iz komentarja 1

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

doc ekstrakt slike iz komentarja 2

3. Nato kliknite Shrani da shranite datoteko, nato pa odprete določeno mapo, da si ogledate shranjene slike, v mapi so ustvarjene dve datoteki, ena je html datoteka, druga pa mapa, ki vsebuje vse slike in druge datoteke, si oglejte posnetek zaslona:

doc ekstrakt slike iz komentarja 3


puščica modra desno mehurčekIzvlečite slike iz komentarjev v celice s kodo VBA

Če želite, da bi slike iz komentarjev prenesli v celice, kot je prikazano spodaj prikazano sličico, tukaj lahko ustvarim kodo VBA za vas, storite tako:

doc ekstrakt slike iz komentarja 4

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

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

VBA koda: ekstrahiraj slike iz komentarjev v celice:

Sub CommentPictures()
'Updateby Extendoffcie 20161207
    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 izpisane v naslednje celice stolpca, glejte sliko zaslona:

doc ekstrakt slike iz komentarja 4


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jacob · 11 months ago
    Thank you!! I had previously inserted pictures into comments for a document and then deleted the pictures only to have someone ask me for copies of only the pictures. This was very straightforward and saved me. Thanks again!
    • To post as a guest, your comment is unpublished.
      Brice Barrier · 7 months ago
      Hello,
      Very interesting post. Thanks a lot.

      But I do not see how to use it to use the picture for a button of my CommandBar. Let me explain.

      I want to share my Excel sheets without sending separatly images for buttons as jpg files (.Picture = LoadPicture(ImageFile).

      So I want to hide the images in some hidden cells or in some comments.
      No issue to hide the images.
      But I do not succeed to get them afterward to initialize my buttons.

      Any idea for this ?


      Thanks for your time.
      Brice.