VB EPPlus を使って、シェイプ(円)を描きたい

タグの編集
投稿者 ロト君  (社会人) 投稿日時 2020/3/5 16:54:28
環境:
VB2019
EPPlus
↑Excelに出力用

内容:
データ出力epplusを使ってExcelに出力します。
その際、任意の場所に〇を付けたいのですが、上手くシェイプが使えません。

ネットで調べましても、#Cについてしかないようですので、どなたか教えてもらえると有難いです。

〇以外にも吹き出しの出し方なども教えて頂きたいです。

宜しくお願い致します。
投稿者 ASD  (社会人) 投稿日時 2020/3/5 18:43:29
https://dobon.net/vb/dotnet/links/convertcs2vb.html

上記サイトを参考にC#からVB.NETへ変換してください。
投稿者 ロト君  (社会人) 投稿日時 2020/3/5 20:00:53
ASD さん 返信ありがとうございます。

http://www.carlosag.net/Tools/CodeTranslator/
や、
https://dobon.net/vb/dotnet/links/convertcs2vb.html
で、調べてみましたが、なかなか分かりません・・・。
投稿者 るきお  (社会人) 投稿日時 2020/3/6 08:13:31
これで〇を描けますよ。

Using fileStream = IO.File.Create("C:\temp\exceltest.xlsx")
    Using excelFile As New ExcelPackage(fileStream)
        Using sheet = excelFile.Workbook.Worksheets.Add("MySheet1")
            Using shape = sheet.Drawings.AddShape("円", eShapeStyle.Ellipse)

                shape.SetPosition(3, 0, 3, 0)
                shape.SetSize(400, 400)
                shape.Border.Fill.Color = Color.Blue
                shape.Border.Width = 20
                shape.Fill.Color = Color.Transparent

                excelFile.Save()
            End Using
        End Using
    End Using
End Using


吹き出しもやろうと思ったんですが、上のサンプル作るのに私は時間をかけすぎました。
C#についての情報がわかっているのならば、質問時に書き込んでもらうなど、もっと回答者が時間を使わないで回答できるようにしていただければその分、回答に費やする時間も増やせます。次回からよろしくお願いします。

パット見たところでは吹き出し機能はないようにも見えますが…。(ちゃんと見てはいません。)

それからEPPlusはGPUライセンスなので、配布するときはご注意ください。
(このライセンスのせいで業務では使用しにくいんです。)

投稿者 るきお  (社会人) 投稿日時 2020/3/6 08:15:38
打ち間違えました。
訂正します。

EPPlusはGPUライセンス

EPPlusはGPLライセンス
投稿者 ロト君  (社会人) 投稿日時 2020/3/6 11:00:49
るきお さん。返信ありがとうございます。

書かれていらっしゃるコードを基にVB化出来ました。
ありがとうございます。

ライセンスについてもありがとうございます。
別途、調べて置きます。

ありがとうございます。