A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
>この部分をマウスで選択した図形全てに…という形にしたいのです。
ふつうは、#1さんの方法で十分だと思うのですが、全体ということになれば、こんな風に変えます。(#1さんのコードをお借りします)
Sub Sample2()
Dim shps As DrawingObjects
Set shps = Selection '別に置き換える必要はないけれど、インテリセンスのため。
With shps.ShapeRange '
.IncrementTop -10
End With
End Sub
' 上に移動する
Private Sub CmdUp_Click()
Dim currTop As Variant
Dim currLeft As Variant
Dim shps As DrawingObjects
Set shps = Selection
' 図形の現在の図の位置を取得する
'With Sheets("Sheet1").Shapes("fig1")
With shps.ShapeRange
currTop = .Top
currLeft = .Left
End With
' 図形の現在の位置を上に移動する
' Top位置を小さくする
'With Sheets("Sheet1").Shapes("fig1")
With shps.ShapeRange
.Top = currTop - 10
.Left = currLeft
End With
End Sub
・・・とすればよろしかったでしょうか?
実行するとSet shps = Selectionで止まってしまい"型が一致しません"と表示されます。
No.1
- 回答日時:
こんな感じでどうですか。
Sub sample()
Dim sh As Shape
' 選択した図形を一つずつ処理
For Each sh In Selection.ShapeRange
sh.IncrementTop (-10) ' 上へ移動
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAで図形のテキストを取得してセルに入力 2 2022/10/05 23:09
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) MacのExcelでoptionキーを押したまま図形や画像を移動させると、複製されてしまう 2 2022/06/14 16:19
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/17 15:40
- Excel(エクセル) Excelのvbaについて教えてください。 図形一つ一つに名前がついています。 指定した図形の名前を 2 2022/08/04 15:13
- Excel(エクセル) エクセルのワークシートを簡単に別ファイルにする方法は? 5 2023/01/11 14:50
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) Excel VBAのことでお聞きしたいことがあり、ご教授お願いします。 下記の3つの図形があり、この 3 2022/08/08 17:57
- PowerPoint(パワーポイント) 2016EXCEL→2016PowerPointにコピペすると図形がゆがみます 5 2022/03/31 11:44
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excelのシート上のShapeにイベントは設定できる?
Excel(エクセル)
-
VBA Shapes コピーと名前
Excel(エクセル)
-
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
-
4
【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい
Visual Basic(VBA)
-
5
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
6
ExcelVBA 図形をクリックした際のイベントを拾うには
Visual Basic(VBA)
-
7
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
8
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
9
Excel VBAのオートシェイプの名前の取得(?)
Visual Basic(VBA)
-
10
エクセルVBAで画像を貼り付ける座標設定方法は?
PowerPoint(パワーポイント)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
エクセル マクロで画像を指定したコマへ移動する
Excel(エクセル)
-
13
VBAで図形同士をコネクタで繋いでいく方法
Visual Basic(VBA)
-
14
コマンドボタンやイメージにマウスをのせるとボタン名を表示したい
Excel(エクセル)
-
15
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
16
画像を削除したい(VBA)
Word(ワード)
-
17
[ EXCEL VBA ] 図形を読み込む順番を制御するには?
Visual Basic(VBA)
-
18
VBAでオブジェクトが選択されているかどうかを判定する方法
Excel(エクセル)
-
19
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
20
エクセルVBA 図形の選択法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで図形やワードアート...
-
Excel組織図を横に展開する方法...
-
マウスで選択した図形のみVBAで...
-
Excel に貼り付けた図形が、勝...
-
Office365 のExcelでオブジェク...
-
word2010 SmartArtで連絡網作...
-
jwCAD 登録した図形を呼び出し...
-
ワードの図形をコピー&ペイス...
-
Excelのマクロについて教えてく...
-
パワーポイント(2016)、線を...
-
ワードで大量の図形を一括でグ...
-
指定範囲内で図形等を削除する...
-
オートシェイプで任意のドーナ...
-
エクセル コマンドボタン 丸...
-
Excel VBA マクロ カラーパレ...
-
ベクターワークスで線を複写
-
エクセル マクロで、選択してい...
-
イラレCSでハッチ効果ありますか?
-
PowerPoint2013で、図形の枠線...
-
JWCADについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
指定範囲内で図形等を削除する...
-
エクセルで図形やワードアート...
-
Excel組織図を横に展開する方法...
-
Excel に貼り付けた図形が、勝...
-
word2010 SmartArtで連絡網作...
-
Office365 のExcelでオブジェク...
-
エクセル マクロで、選択してい...
-
ワードの図形をコピー&ペイス...
-
Creative Cloudフォトプランで...
-
jwCAD 登録した図形を呼び出し...
-
ベクターワークスで線を複写
-
Excel 図形を移動させると複写...
-
マウスで選択した図形のみVBAで...
-
ワードで大量の図形を一括でグ...
-
PowerPoint2013で、図形の枠線...
-
JPEG画像をイラストレータの塗...
-
Illustratorで色の変更ができな...
-
マクロで選択した図形の選択状...
-
イラストレーターには“書式のコ...
-
PhotoShopで図形の塗りや効果を...
おすすめ情報
以下にあるスクリプトは図形を指定していますが、この部分をマウスで選択した図形全てに…という形にしたいのです。
' 上に移動する
Private Sub CmdUp_Click()
Dim currTop As Variant
Dim currLeft As Variant
' 図形の現在の図の位置を取得する
With Sheets("Sheet1").Shapes("fig1")
currTop = .Top
currLeft = .Left
End With
' 図形の現在の位置を上に移動する
' Top位置を小さくする
With Sheets("Sheet1").Shapes("fig1")
.Top = currTop - 10
.Left = currLeft
End With
End Sub