Skala ein Bild in VBA

Derzeit bin ich versucht zu skalieren ein Bild, in VBA, aber kann nicht scheinen zu bekommen, was ich brauche. Jedes mal, wenn ich laufen obwohl.... 

ActiveSheet.Pictures.Insert("C:\\\Logo.bmp").Select
            With Selection
                  .ShapeRange.ScaleWidth 1.4, msoTrue
                  .ShapeRange.ScaleHeight 0.5, msoFalse
             End With

Wird es skaliert, um die richtige Breite zu Beginn, aber wenn dann gehe ich in die nächste Zeile und versuchen Sie, um die Höhe zu skalieren ändert die Breite. Kann mir jemand helfen zu verstehen, warum dies geschieht, und deuten auf eine bessere Art und Weise der Skalierung des Bildes. Ich brauche es auf etwa 125% größer in der Länge und etwa 50% kleiner in der Höhe.

Dank so viel.

InformationsquelleAutor Patrick Wilson | 2013-08-15

  1. 5

    Fügen Sie dieser Zeile:

    .ShapeRange.LockAspectRatio = msoFalse

    Zu ermöglichen, die sowohl die Breite und Höhe wird "freigeschaltet", setzen Sie es richtig auf die Spitze. 

    With Selection
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.ScaleWidth 1.4, msoTrue
    .ShapeRange.ScaleHeight 0.5, msoFalse
End With
    wo? bevor oder nachdem ich eine Skala?
    Je nachdem, was Sie wollen: oben auf alles erlauben würde, sowohl die Breite und Höhe als "völlig frei". Nachdem die Breite, die Höhe free obwohl die Breite verbunden werden, um das ursprüngliche Verhältnis... ich denke, du willst nach oben, aktualisieren meine Antwort jetzt.
    Nevermind. Das klappt perfekt. Ich legte es vor der für alle anderen mit diesem problem

    InformationsquelleAutor varocarbas

  2. -1

    In der ShapeRange.ScaleWidth und ScaleHeight Methoden, die RelativeToOriginalSize argument sein sollte msoFalse wenn Sie wollen, um es zu skalieren relativ (wie im Seitenverhältnis beibehalten, es wird passen Sie Breite und Höhe während der Skalierung). Also, wenn Sie nicht wollen, eine Skalierung relativ einfach festlegen, dass argument msoTrue für beide:

    ActiveSheet.Pictures.Insert("C:\\\Logo.bmp").Select
With Selection
    .ShapeRange.ScaleWidth 1.4, msoTrue
    .ShapeRange.ScaleHeight 0.5, msoTrue
End With
    Die RelativeToOriginalSize arg nicht Steuern, ob oder nicht das Seitenverhältnis beibehalten wird, wenn die Skalierung, es gibt nur die Referenz, oder "startgröße" für die Skalierung, Betrieb. (Es sollte auch darauf hingewiesen werden, dass RelativeToOriginalSize muss immer msoFalse für alle built-in Formen (D. H. diejenigen Formen, welche nicht abgeleitet von einer importierten Bild-Datei-Objekte).

    InformationsquelleAutor tigeravatar

Schreibe einen Kommentar