shikaku https://blog.hatena.ne.jp/shikaku/ shikaku's blog https://blog.systemjp.net/ ExcelVBA Dim addTop Dim addLeft addTop = Range("A1").Top addLeft = Range("A1").Left Dim btn Set btn = Workbooks("hogeシート.xlsm").Sheets("hogehoge").Buttons.Add(addLeft + 19.5, addTop, 133.5, 37.5) btn.Characters.Text = "ボタン名" btn.OnAction = "マクロ名" 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F06%2F09%2F121459" title="ExcelVBAで指定のシートにフォームボタンを追加する - shikaku&#39;s blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2020-06-09 12:14:59 rich https://blog.systemjp.net/entry/2020/06/09/121459 1.0 100%