Hi
ich lese aus Excel die Bildgröße eines Bildes aus.
Da es ja in Excel ein shape ist und kleingezogen wurde erhalte ich ja mit width und heigth die Momentane Größe!
Wenn ich die Werte aus Excel (Bildgröße) mit den aus den Variablen width und height vergleiche, sieht man das die nicht gleich sind.
Wie kann ich diese Werte umrechen damit ich einen greifbaren Wert habe mit den ich weiter arbeiten kann.
Ziel ist es die width und hieght umzurechen und dementsprechend ein neues Bitmap mit dieser Größe zu erstellen und das original Bild in das neue Bitmap zu schreiben!
Quasi zu verkleinern.
Das mit den verkleinern und so geht alles schon aber ich arbeite im Moment immer mit einem Korrekturwert (1.35) um die width in pixel (denke ich) umzurechen.
Das ganze sieht so aus:
For Each s In ws.shapes
yshp = s.Top
xshp = s.left
hshp = s.Height
bshp = s.width
Picture2.Width = bshp * 1.35
Picture2.Height = hshp * 1.35
Picture1.Width = bshp * 1.35
Picture1.Height = hshp * 1.35
xp = CSng(bshp) * 1.35
yp = CSng(hshp) * 1.35
Dim newsize As New Size(hshp * 1.35, bshp * 1.35)
gebild = New Bitmap(newsize.Height, newsize.Width)
kann mir jemand sagen wie ich das Automatisieren kann!
Ich denke wenn sich die Auflösung an einem PC von meiner unterscheidet wird das mit dem Korrekturwert nichts mehr!
Und schön ist es auch nicht!
Das soll schon ordentlich Gerechnet werden.
Danke schon mal!
ich lese aus Excel die Bildgröße eines Bildes aus.
Da es ja in Excel ein shape ist und kleingezogen wurde erhalte ich ja mit width und heigth die Momentane Größe!
Wenn ich die Werte aus Excel (Bildgröße) mit den aus den Variablen width und height vergleiche, sieht man das die nicht gleich sind.
Wie kann ich diese Werte umrechen damit ich einen greifbaren Wert habe mit den ich weiter arbeiten kann.
Ziel ist es die width und hieght umzurechen und dementsprechend ein neues Bitmap mit dieser Größe zu erstellen und das original Bild in das neue Bitmap zu schreiben!
Quasi zu verkleinern.
Das mit den verkleinern und so geht alles schon aber ich arbeite im Moment immer mit einem Korrekturwert (1.35) um die width in pixel (denke ich) umzurechen.
Das ganze sieht so aus:
For Each s In ws.shapes
yshp = s.Top
xshp = s.left
hshp = s.Height
bshp = s.width
Picture2.Width = bshp * 1.35
Picture2.Height = hshp * 1.35
Picture1.Width = bshp * 1.35
Picture1.Height = hshp * 1.35
xp = CSng(bshp) * 1.35
yp = CSng(hshp) * 1.35
Dim newsize As New Size(hshp * 1.35, bshp * 1.35)
gebild = New Bitmap(newsize.Height, newsize.Width)
kann mir jemand sagen wie ich das Automatisieren kann!
Ich denke wenn sich die Auflösung an einem PC von meiner unterscheidet wird das mit dem Korrekturwert nichts mehr!
Und schön ist es auch nicht!
Das soll schon ordentlich Gerechnet werden.
Danke schon mal!
![:thumbsup:](https://www.vb-paradise.de/wcf/images/smilies/thumbsup.png)