Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

function aufrufen

Forumthread: function aufrufen

function aufrufen
21.05.2003 13:17:43
hartwin
hi alle zusammen!

wie kann ich aus einer function Z.b.:

Public Function SizeBMP(FilePath As String, Width As Long, _
Height As Long) As Boolean

Dim nFNr As Long
Dim nWidth As Long
Dim nHeight As Long
Dim nDummy As String

nFNr = FreeFile
Open FilePath For Binary Access Read As #nFNr
nDummy = Input$(18, nFNr)
If Left$(nDummy, 2) = "BM" Then
Get #nFNr, , nWidth
Get #nFNr, , nHeight
SizeBMP = True
End If
Close #nFNr
Width = nWidth
Height = nHeight
End Function

---------------------
Width
und Height herausholen?
ich kann die function ja nicht mit
y=SizeBMP(c:\x.bmp).Width
aufrufen, um an Width zu kommen

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: function aufrufen
21.05.2003 13:35:59
Nepumuk

Hallo Hartwin,
so geht's:

Gruß
Nepumuk

Re: function aufrufen
22.05.2003 12:03:37
hartwin

If Not SizeBMP(Pfadtext.Text + "\untitled1.bmp", Width, Height) Then
MsgBox ("Das eingescannte Bild ist kein Bitmap")
Else
MsgBox (CStr(Width) & CStr(Height))

'bug: element Width ist nich optional

Re: function aufrufen
22.05.2003 13:43:14
Nepumuk

Hallo Hartwin,
Das Wort With ist ein Schlüsselwort in VBA, das darfst du dafür nicht verwenden.
Gruß
Nepumuk

Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18