Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako povečati ali zmanjšati sliko z enim klikom v Excelu?

Predpostavlja, da je več slik v listu, ki je v različnih velikostih. Ali imate na kakšen način povečati ali skrčiti te slike v eni velikosti z enim klikom? V njem ni nobene vgrajene funkcije, ampak v tem članku uvajam kodo VBA, da z enim klikom povečam ali skrčim vse slike v listu.

Povečajte in skrčite slike z enim klikom s strani VBA


puščica modra desno mehurček Povečajte in skrčite slike z enim klikom s strani VBA


Naredite spodnje korake, če želite povečati ali skrčiti slike z enim klikom.

1. Z desno tipko miške kliknite jeziček lista, kjer želite spremeniti velikost slik in izberite Ogled kode iz kontekstnega menija.
doc povečaj sliko en klik 1

2. V popping Microsoft Visual Basic za aplikacijookno in prilepite spodnjo kodo v prazen skript.

VBA: povečajte in skrčite slike z enim klikom

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 povečaj sliko en klik 2

3. Shranite kodo in zaprite okno. Ko kliknete katero koli celico stolpca A, se bodo vse slike skrčile. Prikaz slike:
doc povečaj sliko en klik 3

4. Ko kliknete na celico, ki je na desni strani slike, se relativna slika poveča. Prikaz slike:
doc povečaj sliko en klik 4

Nasvet.Če želite hitro vstaviti vodni žig v prosojnico, poskusite uporabiti Kutools for Excel Vstavi vodni žig kot je prikazano na naslednji sliki. Polna funkcija je brez omejitev v 60 dnevih, prosim, prenesite in zdaj imate brezplačen poskus.

doc vstavi vodni žig

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    User · 10 months ago
    When I save as a Macro-Enabled workbook, close and then re-open, the image integrity has been lost.
    • To post as a guest, your comment is unpublished.
      Sunny · 9 months ago
      I have tested that to save the workbook as macro-enable workbook, reopen the macro-enable workbook, the image is still there, and the code can work as well. Maybe try to save the workbook before you saving it as macro-enable workbook.
  • To post as a guest, your comment is unpublished.
    User · 1 years ago
    Doesn't work
    • To post as a guest, your comment is unpublished.
      Sunny · 9 months ago
      Sorry, I did not know why it does not work in your case, but before carrying out this tutorial, I have tested it several times.