-
Dec 8th, 2006, 10:23 AM
#1
Thread Starter
New Member
[RESOLVED] VBA question: open JPEG, get image size
In VBA in ArcMap, I need to open a JPEG file and get its image size. I've added a reference to System.Drawing, so now I can at least Dim a variable as a Bitmap, but when I try to type in the Bitmap constructor specifying the file path, basically VBA doesn't recognize the syntax. What am I missing?
Thanks,
danl
-
Dec 8th, 2006, 12:40 PM
#2
Re: VBA question: open JPEG, get image size
Welcome the the Forums
Never used ArcMap before, so i can't really test this, but if its VBA then it shouldn't be a problem. I think...
VB Code:
Const ScaleChange As Double = (635 / 24)
Dim Pic As IPictureDisp
Set Pic = LoadPicture("D:\pix.gif")
Imgwidth = Round(Pic.Width / ScaleChange)
ImgHeight = Round(Pic.Height / ScaleChange)
MsgBox "Picture demensions: " & Imgwidth & " x " & ImgHeight
By the way, there is also a forum for VBA
-
Dec 8th, 2006, 01:38 PM
#3
Re: VBA question: open JPEG, get image size
System.Drawing is a .NET Framework reference. Are you doing this as some VB.NET automation of ArcMap?
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.
Microsoft MVP 2006-2011
Office Development FAQ (C#, VB.NET, VB 6, VBA)
Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
If a post has helped you then Please Rate it!
• Reps & Rating Posts • VS.NET on Vista • Multiple .NET Framework Versions • Office Primary Interop Assemblies • VB/Office Guru™ Word SpellChecker™.NET • VB/Office Guru™ Word SpellChecker™ VB6 • VB.NET Attributes Ex. • Outlook Global Address List • API Viewer utility • .NET API Viewer Utility •
System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|