VB EPPlus を使って、シェイプ(円)を描きたい
投稿者 ASD  (社会人)
投稿日時
2020/3/5 18:43:29
https://dobon.net/vb/dotnet/links/convertcs2vb.html
上記サイトを参考にC#からVB.NETへ変換してください。
上記サイトを参考にC#からVB.NETへ変換してください。
投稿者 ロト君  (社会人)
投稿日時
2020/3/5 20:00:53
ASD さん 返信ありがとうございます。
http://www.carlosag.net/Tools/CodeTranslator/
や、
https://dobon.net/vb/dotnet/links/convertcs2vb.html
で、調べてみましたが、なかなか分かりません・・・。
http://www.carlosag.net/Tools/CodeTranslator/
や、
https://dobon.net/vb/dotnet/links/convertcs2vb.html
で、調べてみましたが、なかなか分かりません・・・。
投稿者 るきお  (社会人)
投稿日時
2020/3/6 08:13:31
これで〇を描けますよ。
吹き出しもやろうと思ったんですが、上のサンプル作るのに私は時間をかけすぎました。
C#についての情報がわかっているのならば、質問時に書き込んでもらうなど、もっと回答者が時間を使わないで回答できるようにしていただければその分、回答に費やする時間も増やせます。次回からよろしくお願いします。
パット見たところでは吹き出し機能はないようにも見えますが…。(ちゃんと見てはいません。)
それからEPPlusはGPUライセンスなので、配布するときはご注意ください。
(このライセンスのせいで業務では使用しにくいんです。)
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ライセンス
訂正します。
EPPlusはGPUライセンス
↓
EPPlusはGPLライセンス
投稿者 ロト君  (社会人)
投稿日時
2020/3/6 11:00:49
るきお さん。返信ありがとうございます。
書かれていらっしゃるコードを基にVB化出来ました。
ありがとうございます。
ライセンスについてもありがとうございます。
別途、調べて置きます。
ありがとうございます。
書かれていらっしゃるコードを基にVB化出来ました。
ありがとうございます。
ライセンスについてもありがとうございます。
別途、調べて置きます。
ありがとうございます。
VB2019
EPPlus
↑Excelに出力用
内容:
データ出力epplusを使ってExcelに出力します。
その際、任意の場所に〇を付けたいのですが、上手くシェイプが使えません。
ネットで調べましても、#Cについてしかないようですので、どなたか教えてもらえると有難いです。
〇以外にも吹き出しの出し方なども教えて頂きたいです。
宜しくお願い致します。