| |
▼mmm さん：
>ＸＰでＥＸＣＥＬ２００３を使用しています。
>シートにボタンを配置して、コメントに画像を貼り付けたいのですが、コメントの書式設定の「色と線」タグの塗りつぶしの効果の「図」タグの図の選択のところで止めたいのですが、どうすればよいのかわかりません。
>どなたか教えてください。
'=================================
Sub Macro1()
Dim flnm As Variant
Dim shp As Shape
On Error Resume Next
Err.Clear
Set shp = Selection.ShapeRange(1)
If Err.Number <> 0 Then
MsgBox "コメントを選択して"
Else
If shp.Type = msoComment Then
flnm = Application.GetOpenFilename("図の選択 ,*.*", , "図を選択してください")
If TypeName(flnm) <> "Boolean" Then
shp.Fill.UserPicture flnm
If Err.Number <> 0 Then MsgBox Err.Description
End If
Else
MsgBox "コメントを選択して"
End If
End If
On Error GoTo 0
End Sub
図を挿入したいコメントを選択した状態で上記のMacro1を実行してください。
|
|
ichinose
- 08/2/2(土) 12:11 -
