Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


69808 / 76732 ←次へ | 前へ→

【11439】Re:テキストボックスをグループ化
発言  ichinose  - 04/3/9(火) 11:54 -

引用なし
パスワード
   カド さん、皆さん、こんにちは。

>命名の方法を知りません。
>このようなことが出来るのであれば、教えてください。
皆さんのご意見をコードにしてみました。
Excel2000で確認しました。
'=======================================================
Sub main()
  Dim shpnm()
  shpnm = get_shp_name(Range("a1:c10"))
  If VarType(shpnm) <> vbBoolean Then
   If UBound(shpnm) > 1 Then ActiveSheet.Shapes.Range(shpnm).Group
   End If
End Sub
'=======================================================
Function get_shp_name(rng As Range)
  Dim shp As Shape
  Dim shpnm()
  Dim sht As Worksheet
  Set sht = rng.Parent
  idx = 1
  With rng
   For Each shp In sht.Shapes
    If shp.Top >= .Top And shp.Top + shp.Height <= .Top + .Height _
       And shp.Left >= .Left And shp.Left + shp.Width <= .Left + .Width Then
     ReDim Preserve shpnm(1 To idx)
     shpnm(idx) = shp.Name
     idx = idx + 1
     End If
    Next
   End With
  If idx > 1 Then
   get_shp_name = shpnm()
  Else
   get_shp_name = False
   End If
End Function

上記は、A1:C10の範囲内のShapeオブジォクトをグループ化するコードです。
後は、Typeを調べて特定のShapeオブジェクトのみグループ化するということも
考えられますね!!それは、上記のコードに追加して下さい。
1 hits

【11432】テキストボックスをグループ化 カド 04/3/9(火) 10:45 質問
【11434】Re:テキストボックスをグループ化 IROC 04/3/9(火) 11:06 回答
【11435】Re:テキストボックスをグループ化 カド 04/3/9(火) 11:16 質問
【11436】Re:テキストボックスをグループ化 Jカーター 04/3/9(火) 11:19 回答
【11438】Re:テキストボックスをグループ化 カド 04/3/9(火) 11:44 質問
【11439】Re:テキストボックスをグループ化 ichinose 04/3/9(火) 11:54 発言
【11440】Re:テキストボックスをグループ化 カド 04/3/9(火) 12:15 お礼
【11460】Re:テキストボックスをグループ化 ichinose 04/3/9(火) 15:37 発言

69808 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free