EXCEL VBA でデスクトップスクリーン画像を、セルに表記させる方法

Question

#内容

EXCELシート上に、デスクトップ画面のスクリーンショットを
SHAPE画像で表示させるプログラムを作成しました。

#検討内容

結局のところ、VBA単体では難しかったので、C#でdllを書きました。

C#のDLLで、戻り値をBASE64の文字列にしています。
VBA側は、BASE64をファイルに落としてデコードしています。

結局のところ、ライブラリを作っても、ファイルに落とさないと
これが実現できないので、スマートではないと思っています。

#相談事項

C#の戻り値を、EXCELのSHAPEオブジェクトにして、
直接、VBAからSHAPEの貼り付けはできないものでしょうか？

どうもc#側で、EXCELのオブジェクトを扱う方法が分かりません。

#PS

今回、初めてｃ＃を触ったので、そもそもDLLも初めてです。
ただし、感触としてはVBAをこね回すよりも、C#側でやりたいことを増やした方が良いように思います。

いままでCOMの操作だけでは、満足いくものができなかったのですが
少し、プログラムの幅が広がりそうな気がします。

すみませんが、初学者にアドバイスをお願い致します。

using System;
using System.Collections.Generic;
using System.Linq;
using System.Net;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;
using System.Drawing.Imaging;
using System.Diagnostics;
using System.Drawing;
using System.Windows.Forms;
using System.IO;

namespace ClassLibraryForVBA
{
    [Guid(ScreenShot.ClassId)]
    public class ScreenShot
    {
        public const string ClassId = "9E873B7A-6636-4448-B9BB-23BE3AE1F28B";
        public string GetScreen(int number)
        {
            Rectangle rc = System.Windows.Forms.Screen.AllScreens[number].WorkingArea;
            Bitmap bmp = new Bitmap(rc.Width, rc.Height, PixelFormat.Format32bppArgb);
            using (Graphics g = Graphics.FromImage(bmp))
            {
                g.CopyFromScreen(rc.X, rc.Y, 0, 0, rc.Size, CopyPixelOperation.SourceCopy);
            }

            var SigBase64 = "";
            using (var ms = new MemoryStream())
            {
                bmp.Save(ms, ImageFormat.Bmp);
                SigBase64 = Convert.ToBase64String(ms.GetBuffer());
            }
            return SigBase64;
        }
        public int Count()
        {
            return Screen.AllScreens.Length;
        }
        public int Height(int number)
        {
            return System.Windows.Forms.Screen.AllScreens[number].WorkingArea.Height;
        }
        public int Width(int number)
        {
            return System.Windows.Forms.Screen.AllScreens[number].WorkingArea.Width;
        }
    }
}   

Option Explicit

Sub GetPageHtml()
 
  ' .NETライブラリのクラスをインスタンス化
Dim wp As New ClassLibraryForVBA.ScreenShot
Dim arr

arr = wp.getscreen(0)
Debug.Print wp.Height(0), wp.Width(0)
put_shape (arr)

arr = wp.getscreen(1)
Debug.Print wp.Height(1), wp.Width(1)
put_shape (arr)

End Sub

 
Sub put_shape(arr)
Dim strTempPath
strTempPath = Application.ActiveWorkbook.Path & "\temp.png"
Open strTempPath For Binary As #1
Put #1, 1, DecodeBase64(arr)
Close #1

Sheets("Sheet1").Pictures.Insert strTempPath

End Sub
 

Private Function DecodeBase64(ByVal strData As String) As Byte()

    Dim objXML As Object 'MSXML2.DOMDocument
    Dim objNode As Object 'MSXML2.IXMLDOMElement

    'get dom document
    Set objXML = CreateObject("MSXML2.DOMDocument")

    'create node with type of base 64 and decode
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    DecodeBase64 = objNode.nodeTypedValue

    'clean up
    Set objNode = Nothing
    Set objXML = Nothing

End Function

Answer 1

結局はc#側でcomライブラリを実装することになりました。
ファイル名を渡して、そこに保存させており
引き渡し等は考えないことにいたしました。

using System;
using System.Runtime.InteropServices;
using System.Drawing;
using System.Drawing.Imaging;


namespace ExcelVbaExt
{
    [ComVisible(true)]
    public interface IScreenCapture
    {
        void CaptureWindowToFile(int whdl, string filename);
    }

    [ClassInterface(ClassInterfaceType.None)]
    public class ScreenCapture : IScreenCapture
    {
            public void CaptureWindowToFile(int whdl,  string filename)
            {
                    
                IntPtr handle=new IntPtr(whdl);
                Image img = CaptureWindow(handle);
                img.Save(filename);
            }
            private Image CaptureWindow(IntPtr handle)
            {
                IntPtr hdcSrc = User32.GetWindowDC(handle);
                User32.RECT windowRect = new User32.RECT();
                User32.GetWindowRect(handle, ref windowRect);
                int width = windowRect.right - windowRect.left;
                int height = windowRect.bottom - windowRect.top;
                IntPtr hdcDest = GDI32.CreateCompatibleDC(hdcSrc);
                IntPtr hBitmap = GDI32.CreateCompatibleBitmap(hdcSrc, width, height);
                IntPtr hOld = GDI32.SelectObject(hdcDest, hBitmap);

                GDI32.BitBlt(hdcDest, 0, 0, width, height, hdcSrc, 0, 0, GDI32.SRCCOPY);
                GDI32.SelectObject(hdcDest, hOld);
                GDI32.DeleteDC(hdcDest);
                User32.ReleaseDC(handle, hdcSrc);
                Image img = Image.FromHbitmap(hBitmap);
                GDI32.DeleteObject(hBitmap);
                return img;
            }

            private class GDI32
            {
                public const int SRCCOPY = 0x00CC0020; // BitBlt dwRop parameter
                [DllImport("gdi32.dll")]
                public static extern bool BitBlt(IntPtr hObject, int nXDest, int nYDest,
                    int nWidth, int nHeight, IntPtr hObjectSource,
                    int nXSrc, int nYSrc, int dwRop);
                [DllImport("gdi32.dll")]
                public static extern IntPtr CreateCompatibleBitmap(IntPtr hDC, int nWidth,
                    int nHeight);
                [DllImport("gdi32.dll")]
                public static extern IntPtr CreateCompatibleDC(IntPtr hDC);
                [DllImport("gdi32.dll")]
                public static extern bool DeleteDC(IntPtr hDC);
                [DllImport("gdi32.dll")]
                public static extern bool DeleteObject(IntPtr hObject);
                [DllImport("gdi32.dll")]
                public static extern IntPtr SelectObject(IntPtr hDC, IntPtr hObject);
            }


            private class User32
            {
                [StructLayout(LayoutKind.Sequential)]
                public struct RECT
                {
                    public int left;
                    public int top;
                    public int right;
                    public int bottom;
                }
                [DllImport("user32.dll")]
                public static extern IntPtr GetDesktopWindow();
                [DllImport("user32.dll")]
                public static extern IntPtr GetWindowDC(IntPtr hWnd);
                [DllImport("user32.dll")]
                public static extern IntPtr ReleaseDC(IntPtr hWnd, IntPtr hDC);
                [DllImport("user32.dll")]
                public static extern IntPtr GetWindowRect(IntPtr hWnd, ref RECT rect);
            }
        }
    }

Answer 2

クリップボード経由
クリップボードの画像を表示する、クリップボードに画像をコピーする

クリップボードを操作する(1)

VBAでは
ExcelVBAでスクリーンショットを取る方法