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