tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 貼れました
投稿日: 2005/06/08(Wed) 18:53
投稿者ぐる
しつこいようですがPictureBoxに貼れましたので今までの含めて報告

まずグループ化については

Dim xlShapes As Excel.Shapes
Dim xlShape As Excel.Shape
Dim xlShapeRange As Excel.ShapeRange
Dim ShapeString(グループにしたいShape数意) 'as 以降の指定はなし
xlShapes = xlSheet.Shapes

ShapeString(0) = "Shapeの固有名 Index(1から)" '固有名はグラフならChart 楕円ならOval
など
ShapeString(Shape数) = "固有名 Shape数+1"

xlShapeRange = xlShapes.Range(ShapeString)
xlShape = xlShapeRange.Group

xlShape3.CopyPicture(Appearance:=Excel.XlPictureAppearance.xlScreen, _
                     Format:=Excel.XlCopyPictureFormat.xlPicture) 'クリップボード投げ
'開放省略

にて成功しました。
上ではクリップボードにビットマップで投げずメタファイルを投げてます。
ご存知の通り、PictrueBoxでは使用できません。
よって当方が検索したところ
hhttp://dobon.net/さん(TOPページ)の
hhttp://dobon.net/vb/dotnet/graphics/getclipboardmetafile.html
というずばりなページが見つかりました。
下のほうのDllImportあたりのVB.NETコード参考

似たような症状で困ってる人なんてまずいないと思われますが参考にどうぞ
無理やりで複雑にしてる気がしますが

以上失礼しました

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。