Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)
- [[20220408154319]]
- #score: 6703
- @digest: bca619183996859376c2ebc64990334c
- @id: 90969
- @mdate: 2022-04-08T07:36:51Z
- @size: 887
- @type: text/plain
- #keywords: プ製 (7005), 凹ま (6721), ミャ (5713), incrementtop (4833), incrementleft (4671), doevents (3598), 円2 (3224), 楕円 (2964), ン_ (2434), 行ボ (2278), 録マ (1505), シェ (1354), longptr (1315), トシ (1307), kernel32 (1301), ェイ (1275), ptrsafe (1268), sleep (988), イプ (945), declare (723), ロ実 (501), オー (494), ・ω (473), ・` (456), 適切 (448), ボタ (381), ンマ (376), タン (342), 実行 (290), ャン (287), click (266), マー (245)
- 『オートシェイプ製のマクロ実行ボタンを凹ませたい』（ミャンマー）
マクロを実行するボタンをおしゃれにしようと オートシェイプから作成したのですが、 押したときに凹ませたり、色を変えたりするように出来るのでしょうか。 登録マクロは次の通りです。 Sub 実行ボタン_Click() test End Sub もし可能であれば方法を教えて欲しいです。 ＜ 使用 Excel:Excel2010、使用 OS:Windows10 ＞ ---- あくまでもそれっぽく見えるってだけですが、 シートのオブジェクト名や、オートシェイプの名前は適切に変更してください。 Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr) Sub 楕円2_Click() With Sheet1.Shapes("楕円 2") .IncrementLeft 4 .IncrementTop 4 DoEvents: DoEvents Sleep 100 DoEvents: DoEvents .IncrementLeft -4 .IncrementTop -4 DoEvents: DoEvents End With End Sub （´・ω・`） 2022/04/08(金) 16:36... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/202204/20220408154319.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97049 documents and 608241 words.
訪問者：