Wie kann man ausgewählte Zellen in Excel zoomen oder vergrößern?
Wie wir alle wissen, verfügt Excel über eine Zoomfunktion, mit der wir den Zellenwert im gesamten Arbeitsblatt vergrößern können. Manchmal müssen wir jedoch nur die ausgewählten Zellen zoomen oder vergrößern. Gibt es gute Ideen für uns, die ausgewählten Zellen nur in einem Arbeitsblatt zu vergrößern?
Zoomen oder vergrößern Sie die ausgewählte Zelle mit VBA-Code
Zoomen oder vergrößern Sie die ausgewählte Zelle mit VBA-Code
Möglicherweise können wir die ausgewählten Zellen in Excel nicht direkt vergrößern, aber hier kann ich einen VBA-Code einführen, um diesen Job als Problemumgehung zu behandeln. Bitte gehen Sie wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt", auf der Sie die ausgewählten Zellen automatisch vergrößern möchten, und wählen Sie dann aus Code anzeigen aus dem Kontextmenü in der geöffneten Microsoft Visual Basic für Anwendungen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Vergrößern oder vergrößern Sie die ausgewählten Zellen:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. Speichern und schließen Sie dann dieses Codefenster. Wenn Sie nun einige Datenzellen auswählen oder darauf klicken, werden die Zellen automatisch als Bild vergrößert (siehe Abbildung):
Note: Die ausgewählten Zellen werden nach Auswahl anderer Zellen wieder auf die ursprüngliche Größe geändert.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
