Sut i dynnu delweddau o sylwadau yn Excel?
Yn Excel, gallwch fewnosod delwedd yn y sylw mor hawdd ag y gallwch, ond, a ydych erioed wedi ystyried echdynnu'r delweddau o flychau sylwadau i mewn i gelloedd neu mewn ffolder benodol? Yr erthygl hon, byddaf yn siarad am sut i echdynnu'r delweddau o sylwadau.
Tynnu ac arbed delweddau o sylwadau i mewn i ffolder gyda swyddogaeth Save As
Tynnwch ddelweddau o sylwadau i mewn i gelloedd gyda chod VBA
Tynnu ac arbed delweddau o sylwadau i mewn i ffolder gyda swyddogaeth Save As
Os ydych chi am dynnu ac arbed y delweddau o sylwadau i mewn i ffolder, gwnewch fel a ganlyn:
1. Copïwch y ddalen sy'n cynnwys y sylwadau gyda delweddau rydych chi am eu cadw mewn llyfr gwaith gwag newydd.
2. Ac yna cliciwch Ffeil > Save As i achub y llyfr gwaith newydd hwn fel Web Page fformat mewn ffolder benodol, gweler y screenshot:
3. Yna cliciwch Save botwm i achub y ffeil, yna ewch i'r ffolder benodol i weld y delweddau sydd wedi'u cadw, cynhyrchir dwy ffeil yn y ffolder, un yw'r ffeil html, ac un arall yw ffolder sy'n cynnwys yr holl ddelweddau a ffeiliau eraill, gweler y screenshot:
Tynnwch ddelweddau o sylwadau i mewn i gelloedd gyda chod VBA
Os ydych chi am echdynnu'r delweddau o sylwadau i mewn i gelloedd fel y dangosir ar-lein, yma, gallaf greu cod VBA i chi, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Tynnu delweddau o sylwadau i mewn i gelloedd:
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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, ac mae'r holl ddelweddau o'r sylwadau yn y daflen waith gyfredol wedi'u tynnu i mewn i'r celloedd colofn nesaf, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
