Note: The other languages of the website are Google-translated. Back to English

Conas pictiúir iolracha a chur isteach agus iad a athrú arís ag Excel?

Is furasta dúinn pictiúr amháin a chur isteach in Excel, ach más gá duit iliomad pictiúr a chur isteach ag an am céanna ionas go sábhálfaidh sé go leor ama, conas a d’fhéadfá a dhéanamh?


Cuir isteach iliomad pictiúr agus athraigh iad ar an mórchóir de réir gné Ionsáigh Pictiúr

Is féidir linn pictiúir iolracha a chur isteach ar an mórchóir leis an ngné Pictiúr (Ionsáigh) in Excel, agus ansin iad a athrú go comhuaineach. Déan mar a leanas le do thoil:

1. Sa bhileog oibre, cliceáil Ionsáigh > Pictiúr.

2. Sa dialóg Ionsáigh Pictiúr, oscail an fillteán ina bhfuil pictiúir a chuirfidh tú isteach, roghnaigh pictiúir iolracha de réir mar is gá duit, agus cliceáil ar an Ionsáigh cnaipe. Féach an pictiúr:
nótaí: Sealbhú Ctrl eochair, is féidir leat pictiúir iolracha nach bhfuil in aice láimhe a roghnú ach iad a chliceáil ceann ar cheann; gabháltas Shift eochair, is féidir leat iliomad pictiúr cóngarach a roghnú trí chliceáil ar an gcéad phictiúr agus an ceann deireanach.

Anois cuirtear pictiúir isteach ar an mórchóir agus cruachta sa bhileog oibre.

3. Coinnigh na pictiúir seo roghnaithe, agus athraigh iad ar an mórchóir trí uimhir nua a iontráil sa dá cheann leithead agus airde boscaí sa méid grúpa ar an déanta cluaisín. Féach an pictiúr:

Anois athraítear na pictiúir uile a cuireadh isteach go dtí an méid céanna ag an am céanna.

4. Faoi láthair ní mór duit gach pictiúr a bhogadh de láimh go háit oiriúnach.

nótaí: Má tá an iliomad pictiúr ag cruachadh, tógfaidh sé go leor ama iad a bhogadh de láimh chun áiteanna a fheistiú.

Cuir isteach baisc pictiúir iolracha a mheaitseálann le hábhar cille in Excel

An Meaitseáil Pictiúir Iompórtála gné de Kutools for Excel, is uirlis iontach é atá in ann iompórtáil a bhaisc agus ilphictiúir a chur isteach bunaithe ar ábhar na gceall, agus pictiúir iompórtáilte atá cosúil le méid cille nó a mhéid sonraithe a athrú go héasca.


ad mheaitseáil pics allmhairithe 01

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

Cuir isteach iliomad pictiúr agus athraigh iad ar an mórchóir le OneNote

Chun gluaiseachtaí cruachta a sheachaint ceann ar cheann, tugann an modh seo cleas eile isteach chun iliomad pictiúr a chur isteach le cabhair OneNote. Déan mar a leanas le do thoil:

1. Seoladh OneNote, agus cruthaigh leathanach nua. Agus ansin cliceáil Ionsáigh > Pictiúr.

2. Sa dialóg Ionsáigh Pictiúr, oscail an fillteán ina bhfuil pictiúir a chuirfidh tú isteach, roghnaigh pictiúir iolracha de réir mar is gá duit, agus cliceáil ar an Ionsáigh cnaipe. Féach an pictiúr:
nótaí: Sealbhú Ctrl eochair, is féidir leat pictiúir iolracha nach bhfuil in aice láimhe a roghnú ach iad a chliceáil ceann ar cheann; gabháltas Shift eochair, is féidir leat iliomad pictiúr cóngarach a roghnú trí chliceáil ar an gcéad phictiúr agus an ceann deireanach.

doc cuir isteach pictiúir iolracha OneNote 032

3. Brúigh Ctrl + A eochracha chun gach pictiúr a cuireadh isteach san OneNote a roghnú, agus ansin brúigh Ctrl + C eochracha chun iad a chóipeáil.

4. Téigh an bhileog oibre in Excel, agus brúigh Ctrl + V eochracha chun na pictiúir a ghreamú den bhileog oibre. Anois déantar na pictiúir go léir a ghreamú go hingearach mar a thaispeántar an scáileán ar chlé.

5. Roghnaigh ceann ar bith de na pictiúir, agus brúigh Ctrl + A eochracha chun gach ceann acu a roghnú. Ansin athraigh na pictiúir ar an mórchóir trí uimhreacha nua a iontráil sa dá cheann leithead agus airde boscaí sa méid grúpa ar an déanta cluaisín. Féach an pictiúr:

Anois cuirtear gach pictiúr sonraithe isteach in Excel agus athraítear iad ar an méid céanna ar an mórchóir.


Cuir isteach iliomad pictiúr in Excel le cód VBA

Leis an gcód VBA seo a leanas, is féidir leat iliomad pictiúr a chur isteach i gcomhad Excel de réir cille.

1. Roghnaigh an chéad chill de raon ceann scríbe ar mhaith leat pictiúir a chur isteach ann.

2. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Fuinneog an Mhodúil.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Ansin brúigh an F5 eochair chun an cód seo a rith.

5. Sa dialóg Oscailte, oscail an fillteán ina bhfuil na pictiúir a theastaíonn uait a chur isteach, roghnaigh pictiúir iolracha a chuirfidh tú isteach, agus cliceáil ar an Oscail cnaipe. Agus iompórtáladh na pictiúir roghnaithe go léir i do rogha bunaithe ar mhéid na cille. Féach an pictiúr:


Cuir isteach pictiúir iolracha agus déan iad a choigeartú go huathoibríoch le Kutools le haghaidh Excel

Kutools le haghaidh Excel'S Pictiúir Iompórtála is féidir le fóntais cabhrú leat iliomad pictiúr a chur isteach in Excel bunaithe ar mhéid na cille nó ar mhéid an phictiúir. Is féidir leat airde agus leithead na bpictiúr a shonrú de réir mar is gá duit freisin.

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

1. Cliceáil Kutools Plus > Iompórtáil / Export > Pictiúir Iompórtála, féach ar an scáileán:

2. Sa an Pictiúir Iompórtála bosca dialóige, déan mar a leanas le do thoil:
(1) Sonraigh ord taispeána na bpictiúr ón Ordú iompórtála liosta anuas, is féidir leat a roghnú Líon cill go hingearach i ndiaidh cille or Líon cill go cothrománach i ndiaidh cille.
(2) Cliceáil Cuir cnaipe chun na comhaid íomhá nó an fillteán a roghnú chun na pictiúir a chur leis an liosta Pictiúr. Agus liostálfar do chuid pictiúr roghnaithe go léir sa bhosca liosta.
(3) Cliceáil ar an Méid iompórtála cnaipe;

3. Anois sa Méid Pictiúr Iompórtála dialóg, is féidir leat méid an phictiúir a roghnú a oireann do do riachtanas. Féach an pictiúr:

4. Tar éis duit méid an phictiúir a shonrú, cliceáil le do thoil OK chun an dialóg seo a dhúnadh, agus ar ais chuig an Pictiúir Iompórtála dialóg, cliceáil Iompórtáil cnaipe chun na híomhánna a iompórtáil.

5. Sa bhosca dialóige Iompórtáil Pictiúir nua, roghnaigh an chéad chill de raon ceann scríbe a chuirfidh tú pictiúir isteach, agus cliceáil ar an OK cnaipe.

Faoi láthair, tá do chuid pictiúr roghnaithe go léir curtha isteach i do chealla ón gcill ghníomhach go hingearach nó go cothrománach. Féach an pictiúr ceart:

An Pictiúir Iompórtála tá gné de Kutools for Excel deartha chun baisc pictiúr a chur isteach ag an am céanna le méid cille, méid sonraithe, nó méideanna pictiúr féin in Excel. Bíodh Triail In Aisce agat!


Cuir isteach pictiúir iolracha a mheaitseálann lena n-ainmneacha le Kutools for Excel

Tacaíonn Kutools for Excel le drámaíocht freisin Meaitseáil Pictiúir Iompórtála gné chun pictiúir agus ábhar cille a mheaitseáil agus pictiúir mheaitseáilte a chur isteach ar an mórchóir in Excel amháin.

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

1. Roghnaigh do chealla ainm pictiúr a theastaíonn uait a gcuid pictiúr meaitseála a chur isteach, agus cliceáil Kutools Plus > Iompórtáil / Export > Meaitseáil Pictiúir Iompórtála. féach ar an scáileán:

2. Sa bhosca dialóige Match Import Pictures atá popped amach, déan mar a leanas:
(1) Sonraigh ord taispeána na bpictiúr ón Ordú iompórtála liosta anuas;
(2) Cliceáil Cuir cnaipe chun na pictiúir a chur leis an mbosca liosta pictiúr. Mar eolas duit, ní dhéanfar ach pictiúir mheaitseáilte a liostáil amach.
(3) Ansin cliceáil Méid Iompórtála cnaipe.

3. Anois sa Méid Pictiúr Iompórtála dialóg, is féidir leat méid an phictiúir a roghnú a oireann do do riachtanas, agus cliceáil ar an Ok cnaipe. Féach an pictiúr:

4. Anois filleann tú ar an Pictiúir Iompórtála dialóg, cliceáil Iompórtáil cnaipe chun na híomhánna a iompórtáil.

5. Sa dialóg Match Import Pictures a phiocadh amach, sonraigh le do thoil an chéad chill den raon ceann scríbe a chuirfidh tú pictiúir isteach, agus cliceáil ar an OK cnaipe. Féach an pictiúr:

Go dtí seo, cuirtear na pictiúir go léir isteach sna cealla bunaithe ar a n-ainmneacha coibhneasta. Féach an pictiúr ceart:

An Meaitseáil Pictiúir Iompórtála is féidir le gné de Kutools for Excel cabhrú le húsáideoirí Excel pictiúir a scagadh go tapa bunaithe ar luachanna cille agus ansin na pictiúir seo a chur isteach ar an mórchóir. Ina theannta sin, is féidir na pictiúir mheaitseáilte seo a athrú go méid sonraithe nó méid cille go huathoibríoch. Bíodh Triail In Aisce agat!


Taispeántas: Cuir isteach iliomad pictiúr agus athraigh iad ag an am céanna in Excel

Kutools le haghaidh Excel folaíonn sé níos mó ná 300 uirlisí láimhe le haghaidh Excel, saor in aisce chun triail a bhaint as gan teorainn 30 lá. Triail In Aisce Anois!      Ceannaigh Anois!


Earraí gaolmhara


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (47)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Na treoracha leis an gceannteideal : Cuir isteach pictiúir iolracha isteach in Excel le cód VBA go simplí iontach tapa agus éifeachtach !!! is rogha eile maith é seo chun forlíontáin a cheannach agus a shuiteáil. Seo é mo chéad trácht ar líne!! beannachtaí!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, is féidir liom an modúl InsertPictures a úsáid agus oibríonn sé i gceart chomh fada le jpg. Níl sé ag iarraidh a bheith ag obair do PNG áfach. An féidir leat comhairle a thabhairt le do thoil? Comhghairdeas, Lawrence
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sa chéad ábhar "Cuir isteach pictiúir iolracha i Excel le cód VBA", conas a cuir isteach pictiúr amháin i dhá chealla. mar shampla, cuirfear an chéad phictiúr isteach i gcill A1 agus A2, cuirfear an dara pictiúr isteach i gcill A3 agus A4 agus mar sin de.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
tacaíocht mhaith do Excel ... tá tú ag cabhrú go mór le ham a shábháil. go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Post iontach! Ach fuair mé bealaí eile leis an rud céanna a dhéanamh..... ============================ =========== Fo ipic() Dim i Mar Shlánuimhir Le haghaidh i = 2 Go 10 Cealla(i, 1). Roghnaigh Dim picname Mar Teaghrán picname = Cealla(i, 2) ActiveSheet.Pictures. Ionsáigh ("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Roghnaigh Le Roghnú .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Críoch Leis an Chéad Raon Eile("a1").Roghnaigh Foirceann Deiridh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil leagan de Kuttools le haghaidh Mac ann?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir an cód vba sin a mhodhnú chun 4 phictiúr a chur isteach i bpátrún cosúil le greille mar seo: pic1 in A1, pic2 in A2, pic3 i B1 agus pic4 i B2? Umair!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nevermind fuair mé conas é a dhéanamh :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhféadfá an cód modhnaithe a roinnt le do thoil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo-InsertPictures() 'Nuashonraigh 20140513 Dim PicList() Mar Athróg Dim PicList() Mar Athróg Dim PicFormat Mar Teaghrán Dim Rng Mar Raon Dim sShape As Shape As Shape Ar Earráid Lean Ar Aghaidh PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndexell = Application.Actnive = Application. IsArray(PicList) Ansin xRowIndex = Application.ActiveCell.Row Le haghaidh lLoop = LBound(PicList) Chun UBound(PicList) Socraigh Rng = Cealla(xRowIndex, xColIndex) Socraigh sShape = ActiveSheet.Shapes.AddPicture(PicList(PicList), msoCTLoop), msoCTLoop , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Ar Aghaidh Deireadh Má Deireadh Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhféadfá cabhrú liom, le do thoil, an cód a mhodhnú chun an colún agus an tsraith chomhcheangailte a chur isteach. Fo-InsertPictures() 'Nuashonraigh 20140513 Dim PicList() Mar Athróg Dim PicList() Mar Athróg Dim PicFormat Mar Teaghrán Dim Rng Mar Raon Dim sShape As Shape As Shape On Earráid Lean Ar Aghaidh PicList = Application.Faigh OpenFilename(Pi cFormat, MultiSelect:=True) xColIndexell. Application.Active. Colún Má IsArray(PicList ) Ansin xRowIndex = Application.Act iveCell.Row Le haghaidh lLoop = LBound(PicList) Chun UBound(PicList) Socraigh Rng = Cealla(xRowIndex , xColIndex) Socraigh sShape = ActiveSheet.Sha pes.AddPicture(PicList) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Ar Aghaidh Deireadh Más Deireadh Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
roghnaigh na cealla agus déan iad a athrú de réir leithead agus airde de réir riachtanais ur .. má tá deich bpictiúr agat roghnaigh deich gcill nó níos mó roghnaigh an rogha níos mó..!! ansin brúigh Alt+F11 agus ansin cliceáil IONSÁIGH ANSEO cliceáil MODÚL ANSIN GREAMAIGH AN CÓD SEO A LEANAS MAR A BHFUIL sé.. Fo IonsáighPictures() 'Nuashonraigh 20140513 Dim PicList() Mar Athróg Dim PicFormat Mar Teaghrán Dim Rng Mar Raon Dim sShape As Shape Ar Earráid Lean Ar Aghaidh PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=Fíor) xColIndex = Application.ActiveCell.Column Más IsArray(PicList) Ansin xRowIndex = Application.ActiveCell.Row Le haghaidh lLoop = LBound(PicList) Chuig UBound(PicList) Chun UBound(PicList) Socraigh Rng xRowIndex, xColIndex) Socraigh sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Ar Aghaidh Deireadh AN Fo Críoch THUAS CÓD PREAS F5 .. ANSIN ROGHNAIGH NA COMHAD ÓN RÍOMHAIRE ÁIT A BHFUIL SIAD. UPTO UR GÁ. ANSIN MURA SÁBHÁIL TÚ AN LEABHAR SAOTHAIR, iarrfaidh sé é a shábháil. MÁ Shábháil U IT CHEANA . ANSIN TÁ AN POST UR HOPE Cabhraíonn SEO .. Ali ..!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat, oibríonn sé
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Máistreacht Excel, tá 2 bhileog excel agam. Ceann le níos mó ná céad Pictiúir agus cur síos ar an bpictiúr sa chéad chill eile dó. Is dócha gur fhág an leathán eile tar éis an roghnaithe agus 40 cur síos air. Conas is féidir liom na pictiúir a aistriú chuig an mbileog seo de réir mo rogha féin. Go raibh maith agat al
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
nó úsáideann tú íomhá-xls go díreach . leis an breiseán Excel seo is féidir leat líon neamhtheoranta Pictiúir a chur isteach i gcill Excel, nó mar nóta tráchta. Athraigh sé freisin do Pictiúir. agus is féidir do bhileog Excel a ordú agus a scagadh, lena n-áirítear na Pictiúir !
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is úsáideoir Mac mé agus nuair a chóipeáil mé an cód isteach sa mhodúl nua agus é a rith ní tharlaíonn aon rud. An bhfuil rud éigin le déanamh agam i Mac chun an cód VBA a rith? Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar]nó úsáideann tú íomhá-xls go díreach . leis an breiseán Excel seo is féidir leat líon neamhtheoranta Pictiúir a chur isteach i gcill Excel, nó mar nóta tráchta. Athraigh sé freisin do Pictiúir. agus is féidir do bhileog Excel a ordú agus a scagadh, lena n-áirítear na Pictiúir !Faoi Armin[/ceanglófar] [ceanglófar] Na treoracha leis an gceannteideal : Cuir isteach pictiúir iolracha isteach in Excel le cód VBA ach iontach tapaidh agus éifeachtach !!! is rogha eile maith é seo chun forlíontáin a cheannach agus a shuiteáil. Seo é mo chéad trácht ar líne!! beannachtaí!Le Rahul Gupta[/ ceanglófar] Bhain mé triail as seo agus is cosúil go n-oibríonn sé go breá - ach ní féidir leat an liosta Excel a ordú nó a scagadh lena n-áirítear na pictiúir. freisin nach bhfuil na pics scála comhréireach. mar sin cheannaigh mé image-xls - cosnaíonn sé beagán , ach ní gá go léir a theastaíonn uaim
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit! Aon chúis nach n-oibreodh "Sub InsertPictures()" in Excel 2003? Chuir mé an tagairt do Microsoft.Scripting.Runtime leis cheana féin Go raibh maith agat Gilberto roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
tá sé an-chabhrach dom. Is obair chomh deas í....... Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, bhain mé triail as an gcód ar mo scarbhileog agus d'oibrigh sé go foirfe. Till Déanaim iarracht scagaire a dhéanamh. Faigh amach go dtaispeánfar an pictiúr deireanach i gcónaí ar thoradh an scagaire. aon duine in ann cabhrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ag baint úsáide as an gclár VBA thíos ní féidir an pictiúr a chur isteach i gcill chumaisc, Fo-InsertPictures() 'Nuashonraigh 20140513 Dim PicList() Mar Athrú Dim PicFormat Mar Teaghrán Dim Rng As Raon Dim sShape As Shape Ar Earráid Lean ar Aghaidh PicList = Application.Faigh OpenFilename(Pi cFormat , MultiSelect:=Fíor) xColIndex = Application.ActiveCell.Column If IsArray(PicList ) Ansin xRowIndex = Application.Act iveCell.Row Do lLoop = LBound(PicList) Chun UBound(PicList) Socraigh Rng = Socrú Cealla(xRowIndex , xColIndex) = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Ar Aghaidh Deireadh Má Deireadh Fo Tabhair comhairle dom an VBA a mhodhnú .
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey all, tá sé seo iontach! Tá do chuid ranganna teagaisc á leanúint agam le tamall anuas. Is é an rud a bhí mé ag súil go bhféadfá cabhrú liom leis, conas a dhéanaim é seo a athrú ó na híomhánna a ghreamú síos colún go dtí trasna sraithe? Agus conas is féidir liom "Ainm an Chomhaid Iomlán (.i. example_image.jpg)" a chur leis an Rae os a chionn. Rae 'A' : "Filename.jpg" Rae 'B' : "Mionsamhail Íomhá" Go raibh maith agat!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey, chuir Ive isteach na pictiúir ag baint úsáide as mo chód VBE féin. Agus anois tá iarracht déanta agam é a roinnt leis na daoine eile, ar an drochuair níl siad in ann na pictiúir a fheiceáil ..... bheinn buíoch dá bhféadfadh aon duine a insint dom cad atá mé ar iarraidh. Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an cód seo BHARACH do mo chuid riachtanas. Tá 200 íomhá agam, caithfidh gach íomhá dul ar a leathán féin. Conas is féidir liom dul faoi sin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom an cód seo a leanas a mhodhnú ionas go mbeidh pictiúir líonta i raon roghnaithe cealla thar cholúin agus sraitheanna iolracha seachas i gcealla as a chéile i sraitheanna leantacha sa cholún céanna? Fo-InsertPictures() 'Nuashonraigh 20140513 Dim PicList() Mar Athróg Dim PicList() Mar Athróg Dim PicFormat Mar Teaghrán Dim Rng Mar Raon Dim sShape As Shape As Shape On Earráid Lean Ar Aghaidh PicList = Application.Faigh OpenFilename(Pi cFormat, MultiSelect:=True) xColIndexell. Application.Active. Colún Má IsArray(PicList ) Ansin xRowIndex = Application.Act iveCell.Row Le haghaidh lLoop = LBound(PicList) Chun UBound(PicList) Socraigh Rng = Cealla(xRowIndex , xColIndex) Socraigh sShape = ActiveSheet.Sha pes.AddPicture(PicList) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Ar Aghaidh Deireadh Más Deireadh Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil fonn ort an cód seo a úsáid chun críocha eile? tá sé ceart go leor!
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL