|
訂正です。
>'=================================================
>Private Sub CommandButton1_Click()
> Dim flnm As Variant
on error resume next
> With ActiveCell.AddComment
> .Visible = True
> flnm = Application.GetOpenFilename("図の選択 ,*.*", , "図を選択してください")
> If TypeName(flnm) <> "Boolean" Then
> .Shape.Fill.UserPicture flnm
> If Err.Number <> 0 Then MsgBox Err.Description
> End If
> End With
on error goto 0
>End Sub
追加してください。
>これでコマンドボタンをクリックすると
>アクティブセルにコメントを作成し、そのコメントに埋め込む画像選択ダイアログが
>表示されます。
>
>試してみてください。
>
>尚この場合は、
>TakeFocusOnClickプロパティは、Falseにしなくても動作します。
|
|