Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Bildgröße ändern mit Bildlaufleiste
09.11.2007 16:39:00
Andre´
Hallo alle zusammen,
ich habe in der Zeile 16 ein Bild eingefügt. Der Bildname ist immer unterschiedlich.(Bild1,Bild2...). Nun möchte ich gern das Bild ohne zu markieren in dem Höhe/ Seitenverhältnis verändert können. Normal würde ich an der untersten rechten Ecke das Bild vergrößern/ verkleinern. Realisiert werden soll dies über eine erstellte Bildlaufleiste aus dem Formular.
Kann mir bitte jemand sagen was für ein Makro ich hinter die Bildlaufleiste setzen muss.
In dem angehänget Bsp.: muss das Bild in dem gelben Bereich hinein verkleinert werden.
https://www.herber.de/bbs/user/47562.xls
Danke im voraus
MFG Andre

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bildgröße ändern mit Bildlaufleiste
09.11.2007 17:51:00
ingUR
Hall, Andre,
eine erste einfache Programmsequenz für eine Scrollbar wäre:

Private Sub ScrollBar1_Change()
Dim shp As Shape
Static H0 As Long, W0 As Long
Set shp = ActiveSheet.Shapes(1)
With shp
If H0 = 0 Then
H0 = .Height
W0 = .Width
ScrollBar1.Value = 100
End If
.Height = H0 * (ScrollBar1.Value / 100)
End With
set shp = Nothing
End Sub

Das ganze könnte man nun so erweitern, dass der Zoom zentral erzeigt wird, also bezogen auf den Mittelpunkt des Bildes.
Problem, das Merken der Originalgröße. Hier müssen ggf. die Daten in H0 hinterlegt werden.
Gruß,
Uwe

Anzeige
AW: Bildgröße ändern mit Bildlaufleiste
09.11.2007 18:19:00
Tino
Hallo,
hier mal ein Beispiel, vielleicht bringt dich dies weiter.
Ist vielleicht nicht gerate professionell geht aber.
https://www.herber.de/bbs/user/47564.xls
Gruss
Tino

AW: Bildgröße ändern mit Bildlaufleiste
09.11.2007 18:39:00
Andre´
Hallo,
Vielen DANK, funzt prima!
MFG Andre

AW: Bildgröße ändern mit Bildlaufleiste
09.11.2007 19:20:02
Andre´
Hallo Tino,
wenn ich ein Bild entferne und ein neues in das Feld anlege, dann kann ich ja nicht mit
ActiveSheet.Shapes("Picture 3") arbeiten.
Hast du oder jemand anders noch eine Idee, wie ich im Prinzip nur das Bild ansprechen kann dass sich in der Zeile 16 befindet.
MFG Andre

Anzeige
AW: Bildgröße ändern mit Bildlaufleiste
09.11.2007 19:41:00
Tino
Hallo,
ist nur ein Bild enthalten, gehts mit dieser Schleife.

Sub Makro2()
Dim wert As Double, Name As String
Dim höhe As Double, breite As Double
Dim a As Long
For a = 1 To ActiveSheet.Shapes.Count
If Left(ActiveSheet.Shapes(a).Name, 7) = "Picture" Then
Name = ActiveSheet.Shapes(a).Name
Exit For
End If
Next a
höhe = (586.5 / 100) * Range("J17")
breite = (549.75 / 100) * Range("J17")
ActiveSheet.Shapes(Name).Height = höhe
ActiveSheet.Shapes(Name).Width = breite
End Sub


Gruss
Tino

AW: Bildgröße ändern mit Bildlaufleiste
09.11.2007 19:41:00
Beverly
Hi Andre,

Sub Makro2()
ActiveSheet.Pictures(1).Height = (586.5 / 100) * Range("J17")
ActiveSheet.Pictures(1).Width = (549.75 / 100) * Range("J17")
End Sub


________________________________________

Anzeige
AW: Bildgröße ändern mit Bildlaufleiste
09.11.2007 19:46:28
Tino
Hallo,
Beverlys Vorschlag ist natürlich viel besser!
Gruss
Tino

AW: Bildgröße ändern mit Bildlaufleiste
09.11.2007 19:58:00
Andre´
Hallo,
danke für die Antworten. Ich habe es wie folg gelöst, weil oberhalb der Zeile 16 noch Bilder sind die sich nicht verändern sollen.

Sub test()
Dim wert As Double
Dim höhe As Double, breite As Double
Dim shp As Shape
For Each shp In Tabelle1.Shapes
If shp.Type = msoPicture And shp.TopLeftCell.Row = 16 Then
höhe = (586.5 / 100) * Range("J17")
breite = (549.75 / 100) * Range("J17")
shp.Height = höhe
shp.Width = breite
End If
Next
End Sub


MFG Andre

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige