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

 Conas pictiúr a mhéadú nó a chrapadh le cliceáil amháin in Excel?

Má cheaptar go bhfuil iliomad pictiúr i mbileog atá i méideanna éagsúla. An bhfuil aon bhealaí agat na pictiúir seo a mhéadú nó a chrapadh in aon mhéid le cliceáil amháin? Níl aon ghné ionsuite ann chun é a réiteach, ach san alt seo, tugaim isteach cód VBA chun gach pictiúr sa bhileog a mhéadú nó a chrapadh le cliceáil amháin.

Pictiúir a mhéadú agus a chrapadh le cliceáil amháin le VBA


mboilgeog cheart gorm saighead Pictiúir a mhéadú agus a chrapadh le cliceáil amháin le VBA

Déan mar atá thíos céimeanna chun pictiúir a mhéadú nó a chrapadh le cliceáil amháin.

1. Cliceáil ar dheis ag an táb bileog inar mian leat na pictiúir a athrú, agus roghnaigh Féach an cód ón roghchlár comhthéacs.
doc pictiúr a mhéadú cliceáil amháin 1

2. Sa popping Microsoft Visual Basic le haghaidh Feidhmchláirs fuinneog, agus greamaigh faoin gcód leis an script bán.

VBA: Méadú agus crapadh pictiúir le cliceáil amháin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub
doc pictiúr a mhéadú cliceáil amháin 2

 

3. Sábháil an cód agus dún an fhuinneog. Agus nuair a chliceálann tú ar aon chill de cholún A, craolfar na pictiúir go léir. Féach an pictiúr:
doc pictiúr a mhéadú cliceáil amháin 3

4. Agus nuair a chliceálann tú ar an gcill atá ag barr ceart an phictiúr, méadófar an pictiúr coibhneasta. Féach an pictiúr:
doc pictiúr a mhéadú cliceáil amháin 4

Leid.Más mian leat comhartha uisce a chur isteach go tapa i mbileog, déan iarracht na Kutools a úsáid le haghaidh Excel Cuir isteach Comhartha Uisce mar a thaispeántar sa phictiúr a leanas. Tá sé ag feidhmiú go hiomlán gan teorainn i 30 lá, íoslódáil agus triail saor in aisce anois.

cuir isteach comhartha uisce

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 (5)
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ú
Níl sé ag obair
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm, ní raibh a fhios agam cén fáth nach n-oibríonn sé i do chás, ach sula ndéanann tú an teagasc seo, rinne mé tástáil air arís agus arís eile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a shábhálaim mar leabhar oibre Macra-Cumasaithe, dún agus ansin athosclaítear é, cailleadh sláine na híomhá.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá tástáil déanta agam chun an leabhar oibre a shábháil mar leabhar oibre macra-chumasaithe, an leabhar oibre macra-chumasaithe a athoscailt, tá an íomhá fós ann, agus is féidir leis an gcód oibriú freisin. B’fhéidir iarracht a dhéanamh an leabhar oibre a shábháil sula sábhálfaidh tú é mar leabhar saothair macra-chumasaithe.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat.
Níl aon tráchtanna curtha suas anseo go fóill
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