Sut i gopïo delwedd o'r daflen waith i ffurf defnyddiwr yn Excel?
Bydd yr erthygl hon yn dangos i chi ddulliau o gopïo delwedd o'r daflen waith weithredol i Userform yn Excel.
Copïwch ddelwedd o'r daflen waith i Userform gyda chopïo a phastio
Copïwch ddelwedd o'r daflen waith i Userform gyda chod VBA
Copïwch ddelwedd o'r daflen waith i Userform gyda chopïo a phastio
Gwnewch fel a ganlyn i gopïo delwedd o'r daflen waith i Userform.
1. Mae symud i'r daflen waith yn cynnwys y ddelwedd y mae angen i chi ei chopïo i Userform, ac yna pwyswch y Alt + F11 allweddi gyda'i gilydd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Ffurflen ddefnyddiwr. Gweler y screenshot:
3. Nawr, rhowch Reolaeth Delwedd yn y UserForm. Cliciwch y delwedd botwm yn y Blwch offer blwch deialog, yna lluniwch Reoli Delwedd i'r Ffurflen Defnyddiwr â llaw. Gweler y screenshot:
4. De-gliciwch y rheolydd Delwedd wedi'i fewnosod, a chlicio Eiddo o'r ddewislen cyd-destun fel y dangosir isod screenshot:
5. Yna gallwch weld a Eiddo arddangosfeydd cwarel ar ochr chwith y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
6. Ewch yn ôl i'r daflen waith a dewis y llun rydych chi am ei arddangos yn y Ffurflen Ddefnyddiwr, ac yna copïwch y llun trwy wasgu Ctrl + C allweddi.
7. Ewch i mewn i'r Microsoft Visual Basic ar gyfer Ceisiadau eto, sgroliwch i lawr i glicio ar y Llun maes ac yna pastiwch enw'r llun wedi'i gopïo i mewn iddo o dan y tab Alphabetig.
Nawr mae'r llun yn y daflen waith wedi'i gopïo i'r Ffurflen Ddefnyddiwr.
Copïwch ddelwedd o'r daflen waith i Userform gyda chod VBA
Bydd yr adran hon yn dangos trothwy gwaith i chi gopïo lluniau lluosog o daflen waith i Ffurflen Ddefnyddiwr, ac yna arddangos y llun cyfatebol yn y Ffurflen Ddefnyddiwr trwy ddewis enw'r llun o flwch Combo. Gwnewch fel a ganlyn.
1. Dilynwch gam 1 a 2 uchod o fewnosod Ffurflen Ddefnyddiwr yn eich taflen waith.
2. Yna mewnosodwch a Rheoli Ffrâm i mewn i'r UserFrom fel isod screenshot a ddangosir:
3. De-gliciwch y Ffrâm a fewnosodwyd, a dewiswch Eiddo o'r ddewislen cyd-destun. Yn y chwith Eiddo cwarel, dewiswch Anghywir oddi wrth y gweladwy maes. Gweler y screenshot:
4. Mewnosodwch reolaeth Delwedd luosog yn y Ffrâm fel y dangosir y llun isod.
5. Ewch yn ôl i'r daflen waith a dewis y llun rydych chi am ei arddangos yn y Ffurflen Ddefnyddiwr, a gwasgwch y Ctrl + C allweddi i'w gopïo.
6. Ewch i mewn i'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, de-gliciwch y rheolaeth Delwedd gyntaf, a dewis Eiddo o'r ddewislen clicio ar y dde. Gweler y screenshot a ddangosir.
7. Yn y Eiddo cwarel, cliciwch ar y Llun maes, yna pwyswch y Ctrl + V allweddi i gludo'r llun y gwnaethoch chi ei gopïo yng ngham 5, ac yna dewis 1 - fmPictureSizeModeStrtch oddi wrth y LlunSizeMode rhestr ostwng fel y dangosir isod screenshot.
8. Ailadroddwch gam 5 - 7 i gludo lluniau eraill o'r daflen waith i'r rheolyddion Delwedd chwith yn y UserForm. A bydd y canlyniad yn dangos fel isod y llun a ddangosir.
9. Symudwch y Ffrâm rheolaeth i gornel y UserForm, yna mewnosodwch un newydd delwedd rheolaeth ac a Blwch Combo rheolaeth i mewn i'r UserForm. Gweler y screenshot:
10. De-gliciwch y Ffurflen Defnyddiwr, ac yna cliciwch Gweld y Cod. Yna copïwch a gludwch o dan god VBA i ddisodli'r un gwreiddiol yn ffenestr y Cod.
Cod VBA1: Copïwch y ddelwedd o'r daflen waith i Ffurflen Ddefnyddiwr
Private Sub ComboBox1_Change()
UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
Dim xImg As Control
On Error Resume Next
For Each xImg In UserForm1.Controls
If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
UserForm1.ComboBox1.AddItem xImg.Name
End If
Next
End Sub
Nodyn: Yn y cod, DefnyddiwrForm1 yw enw'r UserForm a fewnosodwyd, Image4 yw enw'r rheolydd Delwedd y byddwch chi'n arddangos lluniau y tu mewn iddo. Ac mae Delwedd yn cynrychioli'r holl reolaethau Delwedd sy'n cynnwys y lluniau y gwnaethoch chi eu copïo o'r daflen waith. Blwch Combo1 yw'r enw combobox rydych wedi'i fewnosod yn y ffurf defnyddiwr. Newidiwch nhw i'ch un chi.
11. Caewch y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
12. Mewnosod botwm Gorchymyn yn y daflen waith trwy glicio Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli ActiveX).
13. De-gliciwch y botwm gorchymyn a dewis Gweld y Cod o'r ddewislen Cyd-destun. Ac yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod. Ac o'r diwedd cau'r ffenestr.
Cod VBA2: Copïwch y ddelwedd o'r daflen waith i Ffurflen Ddefnyddiwr
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15. Cliciwch Datblygwr > Modd Dylunio i ddiffodd y Modd Dylunio.
O hyn ymlaen, wrth glicio ar y botwm gorchymyn, bydd y UserForm yn ymddangos. Gallwch arddangos llun trwy ddewis enw'r ddelwedd o'r blwch combo. Gweler y screenshot:
Bydd dewis enwau gwahanol o'r blwch combo yn dangos gwahanol luniau yn y UserForm.
Erthyglau cysylltiedig:
- Sut i ganoli llun mewn cell Excel?
- Sut i wirio a yw cell yn cynnwys llun yn Excel?
- Sut i fewnosod delwedd neu lun yn ddeinamig mewn cell yn seiliedig ar werth celloedd yn Excel?
- Sut i ehangu'r ddelwedd wrth glicio arni yn Excel?
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!