Microsoft Access 掲示板

InkPictureで、手書き内容と一緒に、背景画像を保存したいができない

0 コメント
views
4 フォロー

Access2016+Windows10で使用したいと考えております。
フォーム上に、InkPicture1を配置し、プロパティシート上で
「カスタムコントロール」からPictureにて足の画像を表示させています。
フォームビューにて、InkPicture1にペンで書き込み、保存するとペンで書き込みした線のみがgifとして保存されます。
足の画像とペンで書き込みした線を両方一つのgifに保存することはできないのでしょうか?
保存は以下の内容で行っています。

Private Sub コマンド1_Click()

    Dim myInk As MSINKAUTLib.InkDisp
    Set myInk = InkPicture1.Ink

'画像一時保存先
    Dim tmpSavePath As String
    tmpSavePath = "c:\temp\" & Format(Now, "yymmddhhmmss") & ".gif"

'Gifのバイナリに変換
    Dim gifData() As Byte
    gifData = myInk.Save(IPF_GIF)

    'ファイル操作でバイナリ出力
    Dim fNo As Integer
    fNo = VBA.FreeFile()

    Open tmpSavePath For Binary As #fNo

        Dim i As Long
        For i = LBound(gifData) To UBound(gifData)

            Put fNo, , gifData(i)

        Next i

    Close #fNo
End Sub

yasuidai
作成: 2021/02/13 (土) 16:24:57
通報 ...