Sut i fewnosod yr un ddelwedd mewn sawl taflen waith yn gyflym?
Fel rheol, gallwn fewnosod llun mewn taflen waith yn gyflym trwy ddefnyddio'r swyddogaeth Mewnosod yn Excel, ond, erioed wedi ceisio mewnosod yr un llun ym mhob taflen waith yn eich llyfr gwaith? Yr erthygl hon, byddaf yn cyflwyno dull defnyddiol i chi ddatrys y swydd hon.
Mewnosodwch yr un ddelwedd ym mhob taflen waith o'r llyfr gwaith gyda chod VBA
Mewnosodwch yr un ddelwedd ym mhob taflen waith o'r llyfr gwaith gyda chod VBA
Gall y cod VBA canlynol eich helpu i fewnosod delwedd ym mhob taflen waith yn rhwydd, 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 Modiwlau Ffenestr.
Cod VBA: Mewnosodwch yr un llun ym mhob taflen waith:
Sub InsertLogo()
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\DT168\Desktop\pic\logo.png"
If Dir(xPath) = "" Then
MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
Exit Sub
End If
For I = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(I).Range("A1")
Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
Next
End Sub
Nodyn: Yn y cod uchod, C:\Users\DT168\Desktop\pic\logo.png yw llwybr ac enw eich llun, a A1 in Range("A1") yw'r gell lle rydych chi am fewnosod y llun, newidiwch nhw i'ch un chi.
3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac yna mae'r llun penodol wedi'i fewnosod ym mhob cell A1 o'r holl daflen waith ar unwaith. Gweler y screenshot:
Nodyn: Bydd y llun a fewnosodwyd yn cael ei addasu i gyd-fynd â maint y gell.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...
Mae 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!