VBAでpng画像に文字列を描画する方法

VBAでpng画像に文字列を描画したいのですが
検索して調べるとVB.netを使った方法が書かれたページはいくつか見つかりました。

http://logicalerror.seesaa.net/article/152199150 …
http://hanatyan.sakura.ne.jp/patio/read.cgi?no=284
https://msdn.microsoft.com/ja-jp/library/aa98436 …

しかしこれらをVBAにコピーしてもそのまま使うことができません。

どなたかVBAで使える方法を教えていただけないでしょうか？

よろしくお願いいたします。

No.1 回答者： gao57830 回答日時： 2015/12/06 22:34

必ず使えるかは不明ですが、やり方だけ・・・。

例えば、最初のリンクにあるソースですと、
＞' Bitmap をファイルのパスから作成
＞Dim bmp As New Bitmap(argv(1))
＞' キャンバス
＞Dim gra As Graphics = Graphics.FromImage(bmp)

＞' 書き出すテキストのフォントを作成
＞Dim myFont As Font = New Font(FontFamily.GenericSansSerif, 20, FontStyle.Bold)

こんな感じに
dim objbmp, objgra, objmyFont
' Bitmap をファイルのパスから作成
set objbmp = CreateObject("System.Drawing.Bitmap").Bitmap(argv(1))
' キャンバス
set objgra = CreateObject("System.Drawing.Graphics").FromImage(bmp)
' 書き出すテキストのフォントを作成
set objmyFont = CreateObject("System.Drawing.Font").Font(FontFamily.GenericSansSerif, 20, FontStyle.Bold)

こんな感じで、.NetFrameworkのオブジェクトをCreateObjectで作成して利用する。
以下、参照
【System.Drawing.Bitmap】
https://msdn.microsoft.com/ja-jp/library/system. …
【System.Drawing.Graphics】
https://msdn.microsoft.com/ja-jp/library/system. …
【System.Drawing.Font】
https://msdn.microsoft.com/ja-jp/library/system. …

※.NetFrameworkの中には、使えるものと使えないものがあるようなので、あくまでも参考程度で・・・。