環境 Office365
スライドに貼られたピクチャーには、余分な白い部分が多くあり、その白い部分を一度にクロップするコードを書いています。
以下Websiteを参考に一度ドライブ上に選択画像をドライブ上にBitmap保存して、もう一度読み込むことでやりたいことは実現できたのですが、ドライブに保存せずに選択している画像からバイナリデータを直接取得する方法はありますでしょうか？
参考にしたWebSite
https://liclog.net/excel-vba-get-binary-data/
複数人で作業しているため、スライドに貼られる前のオリジナルのピクチャーはどこに保存してあるかわからないので、スライド上にある選択しているピクチャーからバイナリデータを直接取得したいのですが、そのような方法はありますでしょうか？
現在のコードです。
Dim Pic1 as Shape
Set Pic1= ActiveWindow.Selection.ShapeRange(1)
Pic1.Export _
PathName: ="C:\Users\UserName\Downloads\test.bmp", _
Filter:=ppShapeFormatBMP
Dim bData() As Byte
Dim vFilePath As String
vFilePath = "C:\Users\UserName\Downloads\test.bmp"
Dim nFileLen As Long
nFileLen = FileLen(vFilePath)
ReDim bData(0 To nFileLen - 1)
'選択されたbmp画像をバイナリデータで取得
Dim iFile As Integer
iFile = FreeFile
Open vFilePath For Binary As #iFile
Get #iFile, , bData
Close #iFile
ご回答をいただけたら幸いです。
よろしくお願い致します。
