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
Wyodrę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.
2. A następnie kliknij filet > Zapisz jako aby zapisać ten nowy skoroszyt jako Strona wWW format w określonym folderze, zobacz zrzut ekranu:
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:
Wyodrę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:
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:
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 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!
