Bilder verkleinern, ausschließlich mit VBS/WSH

20 views
Skip to first unread message

mike.ga...@googlemail.com

unread,
Mar 21, 2006, 6:18:45 AM3/21/06
to
Moin,

habe folgende Situation:

Mit einer Digitalkamera werden Bilder geknippst. Diese Bilder werden
auf den Computer per Hand übertragen. Damit der Transfer per Mail
schneller geht, werden Sie mit MS Paint in der Größe auf 25% (oder
so) verkleinert (per Hand, jedes einzelne).

meine Lösung die ich Suche:

Ein Script auf dessen Button ich ein Bild schiebe und der es autmatisch
in eine andere Größe verkleinert und automatisch neu speichert.

Folgendes habe ich schon im Netzt gefunden, was mir die X/Y Werte
ausspuckt:

Set args = WScript.Arguments

If args.Count > 0 Then
For x = 1 To args.count
Bild = args(x-1)
Next
End If

ImageArray = Size(Bild)
MsgBox ImageArray(0) & ":" & ImageArray(1)

Function Size(Bitmap)
Set Pic = LoadPicture(Bitmap)
Size = Array(Round(Pic.Width / 26.5)+1, Round(Pic.Height / 26.5)+1)

End Function

Ich frage mich jetzt wie ich, sagen wir mal, einfach die Größe im
Array durch 4 teile (also 25%) und die Datei neu speichere. Leider
fehlt mir dazu das nötige Wissen.

Mit freundlichem Gruß

Mike Gawelczyk

Mike Gawelczyk

unread,
Mar 21, 2006, 7:08:56 AM3/21/06
to
Anhang:

Es darf kein Programm eines Drittanbieters verwendet werden.
Ausschliesslich dass, was auch bei Windows dabei ist, z.B. MSPaint.

mr_unreliable

unread,
Mar 21, 2006, 1:29:03 PM3/21/06
to
servus mike,

There are not many German (er, Deutsch) -speakers here.

Have you tried:

news://microsoft.public.de.german.scripting.wsh

Mit freundlichen Grüßen, jw

Fosco

unread,
Mar 22, 2006, 8:59:03 PM3/22/06
to
"Mike Gawelczyk"

>Ein Script auf dessen Button ich ein Bild schiebe und der es autmatisch
>in eine andere Größe verkleinert und automatisch neu speichert.

> Es darf kein Programm eines Drittanbieters verwendet werden.


> Ausschliesslich dass, was auch bei Windows dabei ist, z.B. MSPaint.

Das weahre aber das beste und einfacher .. schau mal hier :

IrfanView (>1 mega)
http://www.irfanview.com/


i_view32.exe c:\test.jpg /resize=(300,300) /aspectratio

i_view32.exe C:\PROGRA~1\IRFAN\NEW\*.jpg /resize=(300,300) /aspectratio


also command line available (calling from VB/Vbs)
Example for /crop:
i_view32.exe c:\test.jpg /crop=(10,10,300,300)
Open 'c:\test.jpg' and crop: x-start=10, y-start=10, width=300, height=300 (in pixels).

Example for /resize:
i_view32.exe c:\test.jpg /resize=(300,300)
Open 'c:\test.jpg' and resize: width=300, height=300.
i_view32.exe c:\test.jpg /resize=(300,300) /aspectratio
Open 'c:\test.jpg' and resize: width= max. 300, height= max. 300, proportional.
i_view32.exe c:\test.jpg /resize=(300,0)
Open 'c:\test.jpg' and resize: width=300, height=proportional.
i_view32.exe c:\test.jpg /resize=(150p,150p)
Open 'c:\test.jpg' and resize: width=150%, height=150%.
ecc
--
Fosco


asdf

unread,
Mar 23, 2006, 3:40:58 AM3/23/06
to
Hmmm.


"mr_unreliable" <kindlyReply...@notmail.com> wrote in message
news:O1MJ%23TRTG...@TK2MSFTNGP10.phx.gbl...

asdf

unread,
Mar 25, 2006, 3:01:25 AM3/25/06
to
A Bitmap can not just be transformd by using rectangular
or parralellogram

oh je

goggle my helper

http://groups.google.com/groups/search?hl=en&lr=&safe=off&num=100&q=parralellogram&safe=off&qt_s=Search

parallelogram vectors. You have to touch each byte
and stream out a file (entirely new file).

----------

Es reicht nicht grosszuegig mit Volkschulmathematik
da ranzugehen, Suchen Sie aktiv nach einem HelferObjekt.

Dll oder exe.

<mike.ga...@googlemail.com> wrote in message
news:1142939925.5...@v46g2000cwv.googlegroups.com...

Reply all
Reply to author
Forward
0 new messages