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
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!