VBAのコマンドボタンについて

質問

エクセルVBAのコマンドボタンをシートに配置してあるのですが、セルの操作(他シートからのコピペ)によってそれの大きさが変わらないようにしたいです。

コマンドボタンのオプションで、『セルに合わせて移動やサイズ変更をしない』にチェックをいれてあるのですが、他のシートからコピペした際にコマンドボタンの位置とサイズが変わってしまいます。
コピーする元のシートのセルサイズに引きずられて、大きさが変わってしまいます（値だけコピーにすれば大丈夫）。

元に戻すボタンを押してもコマンドボタンの大きさは元に戻ってくれないので困っています。

シートの保護で行と列の大きさを保つように保護することも試みたのですが、それだとコピペができなくなってしまいました。

コピペした際に
コマンドボタンの大きさと位置が変わらなければどんな方法でも大丈夫です。
(1)コマンドボタンの設定のミス？なので設定を変更する
(2)常時、「形式を選択して貼り付ける」の際に"値のみ"しか選べないようにする(もしくは単に「貼り付け」した時に値だけ貼り付けるように設定する)、
(3)行と列の高さ・幅の変更を禁止したままコピペ等が出来るようにする
・・・などなど

詳しい方よろしくお願いします。

回答No.1

eden3616 · ベストアンサー

>エクセルVBAのコマンドボタンをシートに配置

「コマンドボタン」とありますので、ActiveX コントロールでしょうか。
『セルに合わせて移動やサイズ変更をしない』で行挿入・列挿入による変化はありませんでしたが
セル全体のコピー貼付だと確かにズレますね。

(1)ズレる事はあきらめて、セルに変更があれば戻すではだめでしょうか？

シートモジュールに以下のコードを貼付てください。
（コマンドボタン名はCommandButton1とした例）

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mySize As Variant
'"Height,Width,Top,Left"の順で値を設定
mySize = Split("67.5,216,40.5,54", ",")
With ActiveSheet.CommandButton1
　　.Height = mySize(0)
　　.Width = mySize(1)
　　.Top = mySize(2)
　　.Left = mySize(3)
End With
End Sub

(2)Ctrl+vでの貼付を値で張り付けにしてしまう方法

ThisWorkbookモジュールに以下のコードを貼付

''ショートカットを設定するマクロ
Private Sub Workbook_Open()
　　Dim mcro As String
　　'[Ctrl]＋[v]に"custom_paste"を割当てる。
　　mcro = "custom_paste"
　　Call Application.OnKey("^v", mcro)
　　Debug.Print "Ctrl+Vに" & mcro & "をセットしました"
End Sub

標準モジュールに以下のコードを貼付

Sub custom_paste()
　　Selection.PasteSpecial Paste:=xlPasteValues
End Sub

ファイルを保存後、開き直すとCtrl+Vでの貼付が「値のみ」の貼付になります。
（ただしエクセルメニューからの貼付は通常動作します）