PowerPoint (一般・VBA)

PowerPoint 一般・VBAに関する話題を扱うフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(その他)
VBA: Bitmap のバイナリデータを スライド上にあるビクチャーから直接取得したい
投稿日時: 21/12/15 02:03:49
投稿者: PoPCorn

 
環境 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
 
 
ご回答をいただけたら幸いです。
よろしくお願い致します。

トピックに返信