タイトル : 貼れました 投稿日 : 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コード参考 似たような症状で困ってる人なんてまずいないと思われますが参考にどうぞ 無理やりで複雑にしてる気がしますが 以上失礼しました |