Bild vergrössern

Forumthread: Bild vergrössern
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bild vergrössern

Bild vergrössern

04.04.2008 00:35:39

ogni

Hallo
Ich möchte in Excel ein Bild per Mausklick vergrößern
und mit einem zweiten Klick wieder in den Ausgangszustand
zurück versetzen.
Ist das möglich und wenn ja wie?
Vorab vielen Dank
Ingo

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild vergrössern

04.04.2008 01:09:02

Josef
AW: Bild vergrössern

04.04.2008 02:53:00

ogni
AW: Bild vergrössern

04.04.2008 10:23:17

Hajo_Zi
AW: Bild vergrössern

04.04.2008 11:54:46

ogni
AW: Bild vergrössern

04.04.2008 11:56:50

Hajo_Zi

AW: Bild vergrössern

04.04.2008 01:09:02

Josef

Hallo Ingo,
weise den Grafiken folgendes makro zu.
Sub GrossKlein()
Dim objShp As Shape
Dim f As Single, a As Variant

f = 2 'Vergößerungsfaktor

Set objShp = ActiveSheet.Shapes(Application.Caller)

If objShp.AlternativeText = "" Then
    With objShp
        .AlternativeText = .Width & ";" & .Height
        .ScaleWidth f, msoFalse
        .ScaleHeight f, msoFalse
    End With
Else
    With objShp
        a = Split(.AlternativeText, ";")
        .Width = a(0)
        .Height = a(1)
        .AlternativeText = ""
    End With
End If

Set objShp = Nothing
End Sub

Gruß Sepp

AW: Bild vergrössern

04.04.2008 02:53:00

ogni

Hallo Sepp
Danke für deine Mühe,
aber wo und wie trage ich das ein?
Gruß
Ingo

AW: Bild vergrössern

04.04.2008 10:23:17

Hajo_Zi

Hallo Ingo,
wie fügst Du das Bild ein? Auf dieser Seite http://hajo-excel.de/vba_bild.htm werden Code vorgestellt und bei vielen ist Dein Klick Ereignis schon dabei.

AW: Bild vergrössern

04.04.2008 11:54:46

ogni

Hallo Hajo
Ich habe ein Bild über Einfügen Grafik Aus Datei eingefügt
und möchte dieses vergrößern.
Mit deinem Link kann ich leider nichts anfangen, dazu bin ich zu d..
Vielleicht hast Du noch eine andere Möglichkeit
Gruß Ingo

AW: Bild vergrössern

04.04.2008 11:56:50

Hajo_Zi

Hallo Ingo,
bei dem Verfahren kannst Du dem Bild kein Makro hinzufügen soweit mir bekannt.
Gruß Hajo

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!