[[20130214233645]]　『セルに挿入したコメントを画像として保存』（田吾作）　ページの最後に飛ぶ

『セルに挿入したコメントを画像として保存』（田吾作）

 お世話になります。よろしくお願いいたします。

 コメントもシェイプの一種だ、という記述をどこかで見かけたことがあるのですが、
 それでは、と思いコメントを表示させた状態でWEB形式でブックを保存しても生成
 したフォルダの中にコメントがありません。

 シェイプの場合はこの方法でGIFファイルとして取り出すことが出来るのですが、
 コメントでは出来ないのでしょうか？

 コメントを表示させた状態でコメントをCtrlキーを押しながらマウスで選択→Ctrl+Cでコピー
 としてもクリップボードに格納されません。

 コメントを画像化することは不可能でしょうか？お教えいただきましたら幸いです。

 なお、パソコンはXP、エクセルは2002です。

 コメントを選択　この状態で　　Shift+編集をクリック----ドロップダウンメニュー表示----図のコピー

 適当な位置で　ペースト

 これで図として複製できます。これでWeb保存すれば、画像ファイルが作成されませんか？

 試してみてください

 ichinose

 ichinoseさん、ご回答ありがとうございます。

 ご教示の方法で出来ました。
 図として貼り付けるところまでをマクロ化してみました。
 WEBとして保存し画像ファイルとして取り出すことは
 シェイプでやったことがありますのでそれを改造するこ
 とで出来ると思います。

 ありがとうございました。

 Sub test()
  Dim myrng As Range
  Dim mypic As Object
  Dim mycomme As Comment
  Dim myname As String
  Dim mystr As String
  Dim shu As Integer
   'shu = xlBitmap
   shu = xlPicture
   myname = "aaa"
   mystr = "aaa" & vbLf & "bbb" & vbLf & "ccc"
   Set myrng = ActiveCell
   Set mycomme = ActiveCell.AddComment
   With mycomme
     .Visible = False
     .Text Text:=mystr
     .Visible = True
     .Shape.Name = myname
   End With
   ActiveSheet.Shapes(myname).CopyPicture Appearance:=xlScreen, Format:=shu
   ActiveSheet.Paste
   Set mypic = ActiveSheet.Shapes(Selection.Name)
   With mypic
    .Top = myrng.Top
    .Left = myrng.Left
    .Width = myrng.Width '幅が変？
    .Height = myrng.Height
   End With
   myrng.Activate
   mycomme.Delete
   Set mycomme = Nothing
   Set mypic = Nothing
   Set myrng = Nothing
 End Sub

 (田吾作)

コメント返信：

[ 一覧(最新更新順) ]

[[20130214233645]] 『セルに挿入したコメントを画像として保存』（田吾作） ページの最後に飛ぶ

[[20130214233645]]　『セルに挿入したコメントを画像として保存』（田吾作）　ページの最後に飛ぶ