excel vba inputbox

Question

初心者です。質問させて下さい。
inputboxでhelpを参照すると、typeの指定は以下ですが、
値 意味 
0  数式 
1  数値 
2  文字列 (テキスト) 
4  論理値 (True または False) 
8  セル参照 (Range オブジェクト) 
16 #N/A などのエラー値 
64 数値配列 

やはり、図形を選択させる事は不可能でしょうか？

具体的には、
マクロ実行中にinputboxを表示させて、図形を選択させ、図形名を表示させて、その図形を既定の図形に設定させたいと思っています。

図形を一つ選択した状態ならば、その図形の名前は以下のコードのように取得できるのですが、inputboxでは図形がなぜか選択できないです。

そもそも、inputboxを使用しようと思ったのは、他のコマンドやツール等が非選択状態になること、またマクロ実行の途中で一時中断することができ、これらの条件は便利だし必要だと思ったからです。

inputboxは何かで設定を変える等で図形を選択できるのでしょうか？無理でしょうか？
また、代替的なものは他にあるのでしょうか？

Sub testA()
Dim Def As Object
Set Def = Excel.Selection
If TypeOf Def Is Excel.Rectangle Then
MsgBox (Def.Name)
End If
End Sub

無理な質問かもしれませんが、どなたか御教授お願い致します！

NNAQ · Accepted Answer

オブジェクト選択ツールをユーザーフォームで自作するのは、かなりたいへんでしょうねぇ。

マクロ実行の途中で一時中断して何かさせる、という観点で、
オフィスアシスタントを使う手もあります。

Sub Sample()
    With Assistant
        .On = True
        .Visible = True
        '.Sounds = True
        .Filename = "saeko.acs" 
        With .NewBalloon 'bln
            .BalloonType = msoBalloonTypeButtons 'Numbers
            .Button = msoButtonSetOK
            .animation = msoAnimationWorkingAtSomething
            .Labels(1).Text = "図形を選択してOKをクリックしましょう。"
            .Mode = msoModeModeless
            .Callback = "test00"
            .Show
         End With
    End With
End Sub

Sub test00(bln As Balloon, lbtn As Long, lPriv As Long)
    Dim Def As Object
    Set Def = Excel.Selection
    If TypeOf Def Is Excel.Rectangle Then
        MsgBox (Def.Name)
    End If
    bln.Close
    'Assistant.On = False
End Sub

Sampleマクロは終了して、バルーンのボタンクリックで
イベントプロシージャのように、test00が走ります。
まあ、こんなことも出来る、という程度の情報ですが。
本格的にバルーンをたくさん用意して作りこんでいけば、
ウィザード形式のものを作成できるようです。

NNAQ · Answer

Officeアシスタントは、excel2007では廃止になりました。
http://officetanaka.net/excel/excel2007/041.htm
無駄な回答ですいませんでした。

さて、図形の操作はよく分からないので、簡単に。
フリーフォームの形状はこんなふうに、取得できるのではないでしょうか。
With Selection.ShapeRange
MsgBox .Type = msoFreeform
MsgBox .Nodes.Count
With .Nodes(1)
MsgBox .EditingType
MsgBox .SegmentType
End With
End With
節点の数だけループさせることになると思いますけど。

オートシェイプの規定値がどうなっているのかは、取得方法が分かりませんでした。

OtenkiAme · Answer

こんにちは。

> 発想を転換してユーザーフォームで頑張る以外ないという事でしょうか？
「オートシェイプを規定値に設定」って
一般機能で図形を右クリックして処理できますよね。
ユーザーフォームまで持ち出してマクロを組む必要があるのか
私にはわかりません。

OtenkiAme · Answer

こんにちは。

> また、代替的なものは他にあるのでしょうか？
選択したセル範囲と各図形のセル範囲をIntersectで調べて設定するようにしたら如何でしょうか？

Dim Sentaku As Range
Dim Zukei As Shape

On Error Resume Next
Set Sentaku = Application.InputBox( _
　　Prompt:="規定値にしたい図形を描いたセルを選択" & vbCr & _
　　　　"（図形にかかっていればＯＫ！）", Type:=8)
On Error GoTo 0
If Sentaku Is Nothing Then Exit Sub

For Each Zukei In ActiveSheet.Shapes
　　If Not Application.Intersect( _
　　　　Sentaku, Range(Zukei.TopLeftCell, Zukei.BottomRightCell)) Is Nothing Then
　　　　MsgBox Zukei.Name
　　　　'Zukei.SetShapesDefaultProperties
　　　　Exit Sub
　　End If
Next Zukei

Set Sentaku = Nothing

excel vba inputbox

オブジェクト選択ツールをユーザーフォームで自作するのは、かなりたいへんでしょうねぇ。

この回答への補足

Officeアシスタントは、excel2007では廃止になりました。

こんにちは。

この回答への補足

こんにちは。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング