質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

3回答

373閲覧

VBAでの画像の移動

anacoro810

総合スコア6

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2017/08/25 07:05

###前提・実現したいこと
VBAでマクロの実行ごとに画像の座標を取得して縦、横に1マスずつ動かすコードを書いています
###発生している問題・エラーメッセージ

エラーメッセージ 'Range'メソッドは失敗しました'_Global'オブジェクト

###該当のソースコード

ここにご自身が実行したソースコードを書いてください

Sub b()
Dim Rng As Range
Dim xRow As Integer
Dim xColumn As Integer
xRow = Selection.Row
xColumn = Selection.Column
Set Rng = Range(xRow, xColumn)
xRow = xRow + 1
xColumn = xColumn + 1
With ActiveSheet.Shapes("object1")
.Top = Rng.Top
.Left = Rng.Left
.Width = Rng.Width
.Height = Rng.Height
End With
End Sub
###試したこと
課題に対してアプローチしたことを記載してください

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報
VBA

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答3

0

Range()は、WorksheetもしくはRangeのプロパティで、単独では使えません。
エラーメッセージの「'Range'メソッドは失敗しました'_Global'オブジェクト」は、そういう意味です。

このエラーは、

Set Rng = Range(xRow, xColumn)

Set Rng = ActiveSheet.Range(xRow, xColumn)

と修正すれば解消します。

投稿2017/08/25 07:32

coco_bauer

総合スコア6915

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ttyp03

2017/08/25 08:26

標準モジュールだとエラーになりますが、シートごとのモジュールなら書けますよ(自身のシートが対象になる)
guest

0

Range(xRow, xColumn) としていますが、Rangeの引数には数値は指定できず、A1,B2などを指定します。

投稿2017/08/25 07:30

koguma98

総合スコア288

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

Range オブジェクトの指定が曖昧です。

以下の通り訂正して、処理が流れる様になりました。
ただし、投稿主さんが実現したい動きにはなっていませんでしたので、処理の流れを再考してみて下さい。

vba

1Option Explicit 2 3 4Sub b() 5 6Dim Rng As Range 7Dim xRow As Integer 8Dim xColumn As Integer 9 10xRow = Selection.Row 11xColumn = Selection.Column 12 13'レンジの指定に誤り。 14'Set Rng = Range(xRow, xColumn) 15Set Rng = ThisWorkbook.Worksheets("Sheet1").Range(Cells(xRow, xColumn), Cells(xRow, xColumn)) 16 17xRow = xRow + 1 18xColumn = xColumn + 1 19 20With ActiveSheet.Shapes("object1") 21 .Top = Rng.Top 22 .Left = Rng.Left 23 .Width = Rng.Width 24 .Height = Rng.Height 25End With 26 27End Sub

投稿2017/08/25 07:26

tukuroku

総合スコア234

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問