zOomen

[icemanonsnow]

WIe kann ich ein bild in excel mithilfe von vb so zoomen dass der mittelpunkt immer gleichbleibt?? zoomen geht nur dass bild verschiebt sich

:cool:

[Klotzkopp]

Du musst ermitteln, welche Zelle in der Mitte des sichtbaren Bereichs liegt (oder am nächsten dran). Danach zoomst du, und scrollst, so dass die ermittelte Zelle wieder in der Mitte liegt.

Das kann ziemlich kompliziert werden, gerade wenn man unterschiedliche Zellgrößen, kombinierte Zellen und ausgeblendete Spalten oder Zeilen berücksichtigen will.

Das wird meistens nicht genau gehen. Es gibt auch Fälle, in denen das gar nicht geht.

[icemanonsnow]

NEEEEEE. Unser ausbilder hat gesagt dass geht mit 2 zeilen extra

also der quell sieht so aus

Private Sub ScrollBar1_Scroll()

Call zoom

End Sub

Private Sub ScrollBar1_Change()

Call zoom

End Sub

Public Sub zoom()

Range("A16").Value = ScrollBar1.Value

Shapes("AutoShape 6").Width = ScrollBar1.Value

Shapes("AutoShape 6").Height = ScrollBar1.Value

End Sub

[Klotzkopp]

NEEEEEE.

Kindergarten?

Public Sub zoom()

Range("A16").Value = ScrollBar1.Value

Shapes("AutoShape 6").Width = ScrollBar1.Value

Shapes("AutoShape 6").Height = ScrollBar1.Value

End Sub

Ich dachte, du wolltest das ganze Sheet zoomen. Du willst nur die Größe eines Autoshape ändern.

[icemanonsnow]

Sorry falsch gefragt .

ja es is nur n shape aber beim zoomen verschiebt sich dass

dass soll aber auf einem fleck bleieben . :beagolisc