Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5883 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48448】オートシェイプをセルの交点にピタ ooi 07/4/18(水) 0:00 質問[未読]
【48449】Re:オートシェイプをセルの交点にピタ ooi 07/4/18(水) 0:09 発言[未読]
【48450】Re:オートシェイプをセルの交点にピタ ooi 07/4/18(水) 0:40 発言[未読]
【48448】オートシェイプをセルの交点にピタ
質問  ooi  - 07/4/18(水) 0:00 -
引用なし
パスワード
   表題の通りですがオートシェイプの線等の先端を
セルの交点でピタｯと止めることはできますか？
よろしくお願いします。
【48449】Re:オートシェイプをセルの交点にピタ
発言  ooi  - 07/4/18(水) 0:09 -
引用なし
パスワード
   グリッド合わせのONとOFFを
コマンドボタンで切り換えるようにしたいのですが
グリッド合わせのコードはどう書けばいいのでしょうか
追伸でした。
【48450】Re:オートシェイプをセルの交点にピタ
発言  ooi  - 07/4/18(水) 0:40 -
引用なし
パスワード
   >グリッド合わせのONとOFFを
>コマンドボタンで切り換えるようにしたいのですが
>グリッド合わせのコードはどう書けばいいのでしょうか
>追伸でした。
ON過去参考でわかりました
　　Dim myButton As CommandBarButton
　　Set myButton = Application.CommandBars("Drawing") _
　　　　　　.FindControl(ID:=549, recursive:=True)
　　With myButton
　　　　If .State = msoButtonUp Then
　　　　　　.Execute
　　　　End If
　　End With
　　Set myButton = Nothing
OFFとコマンドボタンので切り換えるには？
よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5883 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free