3

リボンのボタンでExcelファイルに保存された画像の使用に関するこの質問のフォローアップとして：

CustomXMLPart / CustomXMLNodeにbase64でエンコードされた文字列で保存されている画像を、最初にディスクに保存してロードし直すことなく、Officeドキュメントの画像として使用することはできますか？

画像を使用したい場所は、IPictureDispオブジェクトをパラメーターとして受け取ります（LoadPicture関数が戻るように、ディスクからファイルをロードするだけです）。

4

1 に答える 1

1

まず、base_64データをバイト配列に変換する必要があります。

Private Function decodeBase64(ByVal strData As String) As Byte()
    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement

    Set objXML = New MSXML2.DOMDocument
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    decodeBase64 = objNode.nodeTypedValue

    Set objNode = Nothing
    Set objXML = Nothing
End Function

差出人：http ：//thydzik.com/vb6vba-functions-to-convert-binary-string-to-base64-string/

次に、それをメモリにロードし、このトピックに関する情報を使用してIPictureDispを作成できます：http ：//www.xtremevbtalk.com/showthread.php？t = 137857

Type GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(7) As Byte
End Type

Private Declare Function CreateStreamOnHGlobal Lib "ole32.dll" (ByRef hGlobal As Any,     ByVal fDeleteOnResume As Long, ByRef ppstr As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32.dll" (ByVal lpStream As IUnknown, ByVal lSize As Long, ByVal fRunMode As Long, ByRef riid As GUID, ByRef lplpObj As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpsz As Long, ByRef pclsid As GUID) As Long

Private Const SIPICTURE As String = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"

Public Function PictureFromArray(ByRef b() As Byte) As IPicture
  On Error GoTo errorhandler

  Dim istrm As IUnknown
  Dim tGuid As GUID

  If Not CreateStreamOnHGlobal(b(LBound(b)), False, istrm) Then
    CLSIDFromString StrPtr(SIPICTURE), tGuid
    OleLoadPicture istrm, UBound(b) - LBound(b) + 1, False, tGuid, PictureFromArray
  End If

  Set istrm = Nothing
  Exit Function
errorhandler:
  Debug.Print "Could not convert to IPicture!"
End Function
于 2013-02-01T23:07:58.137 に答える