如何将Image控件中的图片数据转为二进制数组?(已解决!封装PropertyBag对象)

VBA万岁

HHAAMM 发表于 2009-2-25 04:06
Sub 图片文件的数据保存到EXCEL的A列中()
Dim arr() As Byte, H&, x&
Open "d:\1.jpg" For Binary As #1
...

将楼上的代码稍作改动，以方便自已调用：
Sub 将图片转换为数组()
Dim fn, f
Dim arr() As Byte, H, i
fn = Application.GetOpenFilename("图像文件,*.jpg", , "请选文件", , MultiSelect:=True)
If Not IsArray(fn) Then Exit Sub
For Each f In fn
    Open f For Binary As #1
    H = LOF(1)
    ReDim arr(1 To H)
    Get #1, , arr
    Close #1
    For i = 1 To UBound(arr)
        Cells(i, 1) = arr(i)
    Next i
Next
End Sub

Sub 从EXCEL的A列提取数据生成图片()
Dim arr() As Byte, a&, x&
a = Range("a65536").End(xlUp).Row
ReDim arr(1 To a)
For x = 1 To a
    arr(x) = Range("a" & x)
Next
Open ThisWorkbook.Path & "\1.jpg" For Binary As #1
Put #1, , arr
Close #1

Dim myObj As Shape
For Each myObj In ActiveSheet.Shapes
    If myObj.Name Like "Rectangle*" Then myObj.Select
Next
Selection.ShapeRange.Fill.UserPicture ThisWorkbook.Path & "\1.jpg"

Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.DeleteFile (ActiveWorkbook.Path & "\1.jpg")
End Sub

VBA万岁

VBA万岁 发表于 2014-12-17 16:18
将楼上的代码稍作改动，以方便自已调用：
Sub 将图片转换为数组()
Dim fn, f

附件：
图片与数组相互转换.zip (528.57 KB, 下载次数: 396)

2014-12-19 15:13 上传

点击文件名下载附件

renahu

HHAAMM 发表于 2009-2-25 03:41
ok

Sub test()

For x = 1 To H  循环就提示 “溢出”  ，下面的不循环就OK了

appleftg

mark,,,学习下

banjinjiu

小fisher 发表于 2009-2-25 13:38
示例代码见附件

大侠，你好，我的窗体有三image控件（即image1、image2、image3），两个按钮（CommandButton1、CommandButton2）。
我想实现的功能：
1、点击CommandButton1，加载image1图片，同时把image1的图片水平翻转180，传递image2显示。
2、点击CommandButton2，加载image1图片，同时把image1的图片垂直翻转180，传递image3显示。
请问：这个代码怎么写？感谢先！

banjinjiu

fdd 发表于 2009-2-25 17:44
小fisher好像对API函数特别了解啊！佩服佩服！

附件传不上去，意思说对了，行吧？

改正归邪

呵呵，有点懵

mklyzl

学习了，大赞楼主！

mklyzl

VBA万岁 发表于 2014-12-17 16:19
附件：

赞赞赞赞赞赞！

02761752696

不错 的  东西    学习