###前提・実現したいこと
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
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/08/25 08:26