win10删除启动引导:VBA 一个能够获取图像大小（如800*600）的api函数

来源：百度文库编辑：中财网时间：2024/05/03 06:38:20

一个能够获取图像大小（如800*600）的api函数Private Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long   Private Type BITMAP   bmType As Long   bmWidth As Long   bmHeight As Long   bmWidthBytes As Long   bmPlanes As Integer   bmBitsPixel As Integer   bmBits As LongEnd Type
Public Sub psize()
   Dim bm As BITMAP   Dim picPicture As IPictureDisp
   Set picPicture = stdole.LoadPicture("e:\gta.bmp")
   Call GetObjectAPI(picPicture, Len(bm), bm)   MsgBox "大小 : " & bm.bmWidth & "×" & bm.bmHeight
End Sub

'*********************************************************************************Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _  ByVal hdc As Long) As LongPrivate Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _  ByVal nIndex As Long) As Long
Sub getpicsize(ByVal picpath As String)Dim Image1 As OLEObject, d As LongApplication.ScreenUpdating = Falsed = GetDC(0)Set Image1 = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1")Image1.Object.AutoSize = TrueImage1.Object.BorderStyle = 0Image1.Object.Picture = LoadPicture(picpath)MsgBox Image1.Width * GetDeviceCaps(d, 88) / 72 & "*" & Image1.Height * GetDeviceCaps(d, 90) / 72ReleaseDC 0, dImage1.DeleteApplication.ScreenUpdating = TrueEnd Sub

Sub Macro1()getpicsize "e:\001.gif"End Sub

如何用vba获取excel单元格格式什么软件能够改变图像大小？如何用JSP获取一个HTML中SELECT中的值如何用JSP获取一个HTML中SELECT中的值？？如何用 VB 获取一个文件夹下的文件名列表图像大小转换问题图像大小问题啊～～如何用photoshop 绘制一个精确大小的距形? 电脑硬件不能获取视频图像，咋办？如何利用超级解霸获取一幅图像如何利用超级解霸获取一幅图像？？如何利用超级解霸获取一幅图像？？作一个excel-VBA宏 BMP图像大小的计算？ JPES图像大小怎么改变？如何用javascript获取cookies?? 如何用VB编写一个获取本机的IP地址？如何用asp.net c#编一个可以获取阿里巴巴数据的搜索软件谁能给我一个能够上传GIF图像的论坛？怎么能够获取新奇特产品信息怎么能够获取新奇特产品信息如何翻译：“....能够快速获取....的信息” 怎样才能获取一个电子信箱怎样用photo更改图像大小？想把270k大小的图像改成20k大小！