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

Jak wyodrębnić obrazy z komentarzy w programie Excel?

W programie Excel możesz wstawić obraz do komentarza tak łatwo, jak to tylko możliwe, ale czy kiedykolwiek rozważałeś wyodrębnienie obrazów z pól komentarzy do komórek lub do określonego folderu? W tym artykule omówię, jak wyodrębnić obrazy z komentarzy.

Wyodrębnij i zapisz obrazy z komentarzy do folderu z funkcją Zapisz jako

Wyodrębnij obrazy z komentarzy do komórek za pomocą kodu VBA


strzałka niebieski prawy bąbelekWyodrębnij i zapisz obrazy z komentarzy do folderu z funkcją Zapisz jako

Jeśli chcesz wyodrębnić i zapisać obrazy z komentarzy do folderu, wykonaj następujące czynności:

1. Skopiuj arkusz zawierający komentarze z obrazami, które chcesz zapisać, do nowego pustego skoroszytu.

doc wyodrębnij obraz z komentarza 1

2. A następnie kliknij filet > Zapisz jako aby zapisać ten nowy skoroszyt jako Strona wWW format w określonym folderze, zobacz zrzut ekranu:

doc wyodrębnij obraz z komentarza 2

3. Następnie kliknij Zapisz przycisk, aby zapisać plik, a następnie przejdź do określonego folderu, aby wyświetlić zapisane obrazy, w folderze generowane są dwa pliki, jeden to plik html, a drugi to folder zawierający wszystkie obrazy i inne pliki, patrz zrzut ekranu:

doc wyodrębnij obraz z komentarza 3


strzałka niebieski prawy bąbelekWyodrębnij obrazy z komentarzy do komórek za pomocą kodu VBA

Jeśli chcesz wyodrębnić obrazy z komentarzy do komórek, jak pokazano na poniższym zrzucie ekranu, tutaj mogę utworzyć dla ciebie kod VBA, wykonaj następujące czynności:

doc wyodrębnij obraz z komentarza 4

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

Kod VBA: wyodrębnij obrazy z komentarzy do komórek:

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie obrazy komentarzy w bieżącym arkuszu zostały wyodrębnione do następnych komórek kolumny, patrz zrzut ekranu:

doc wyodrębnij obraz z komentarza 4


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (3)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Ci!! Wcześniej wstawiłem zdjęcia do komentarzy do dokumentu, a następnie usunąłem je tylko po to, aby ktoś poprosił mnie o kopie samych zdjęć. To było bardzo proste i mnie uratowało. Dzięki jeszcze raz!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Bardzo ciekawy post. Wielkie dzięki.

Ale nie wiem, jak go użyć, aby użyć obrazu jako przycisku mojego paska poleceń. Pozwól mi wyjaśnić.

Chcę udostępnić moje arkusze Excela bez wysyłania oddzielnie obrazów przycisków jako plików jpg (.Picture = LoadPicture(ImageFile).

Więc chcę ukryć obrazy w niektórych ukrytych komórkach lub w niektórych komentarzach.
Nie ma problemu, aby ukryć obrazy.
Ale później nie udaje mi się zmusić ich do zainicjowania moich przycisków.

Jakiś pomysł na to?


Dzięki za poświęcony czas.
Briana.
Ten komentarz został zminimalizowany przez moderatora na stronie
Hola! Muchisimas gracias por el aporte. Tengo un problema, veces funciona ya veces no extrae las fotos .Por que puede ser si es la misma macro?
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL