オートシェイプの黄色いハンドルのマクロ操作

Question

技術文書に装置の構造や構成を図解するためのポンチ絵（テクニカルイラスト？）
を加えるために、オートシェイプを使っています。このとき
黄色いハンドル(調整ハンドル)を使って図形の形状を調整しています。

（１）感覚ではなく数字で調整ハンドルによる調整値を設定したい。
高さや幅については
http://www.geocities.jp/miko3niko/wordg/zu3-1.jpg

の画面又は各バージョンの同様の画面から数字で入力していますが、
調整ハンドルによる調整は、手の感覚で調整しています。
数字で調整できないものでしょうか？

（２）msoShapeについて
そういったものとして、VBAのmsoShape
コマンドがあるように思うのですが、各図形に対応したコマンド、
引数を一覧した本又はWebサイトがあったら教えてください。

(３）マクロの記録について
Wordについては、Mathtypeのマクロが邪魔をしてどこに記録されたのかさえ分からない
PPT2007はそもそもマクロの記録すらできない

ということで、

Excel2007上でマクロの記録をしたところ、オートシェイプ（スマートアート？）
の作成、編集をマクロ上に記録しても、何も記録されないので、（Sub macro1 とend sub だけが記録されている ）
記録する方法をご存知の方がいらっしゃったら教えてください。

（４）msoShapeは2007以降のofficeで使えるものなのでしょうか？
ご存知の方がいたらおしえてください。本題とははずれますが、特許図面で
ハッチング（射線入りのオートシェイプ）をかけるとき
msoShapeでかけられたらうれしいなと思いまして…。ご存知の方がいたら教えてください。

■参考
http://office.microsoft.com/ja-jp/word-help/HP003074070.aspx
http://office.microsoft.com/ja-jp/powerpoint-help/HA001132754.aspx
http://www.geocities.jp/miko3niko/wordg/wordg.html

enunokokoro · Accepted Answer

No.4の回答者です。

No.4で書いた文章は分かりにくかったのでしょうか？
前の回答で、（１）について～（４）について　までアドバイスを
したものは、Wordでのみ活用できるものとして書いたつもりです。
冒頭でそのことを書いているつもりなのですが。

それはさておき、ここからはNo.4のお礼欄に書かれたことへ補足
としてのアドバイスをします。

＞ >Sub ShapeAdjustment()
＞ PPT2007で適当なオートシェイプを出し、選択した状態で実行した状態でも
＞ 「実行時エラー424 オブジェクトが必要です」というエラーが出ます。
No.1のお礼欄で同じエラーがあり、それの原因調査としてNo.3の
お礼欄でExcelで正常でもPowerPointでは" ActiveSheet. "という
コマンドが、PPTで認識できないのではないことを理解されている
というのに、なぜWordでのアドバイスとして書いた調整値を設定
するマクロをそのままPowerPointで使おうとするのでしょうか？

基本的部分では同じように使えるマクロでも、PowerPointとWord
で書き方などが一部違う場合が多いことを理解してあれば、この
マクロがExcelとWordでは共通して使えるものであったとしても、
同じに使えないこともあることを認識してください。
使えない原因については、推測ですが後述で一括説明します。

＞ Word2007では、適当なオートシェイプを出し、選択した状態で実行した状態でも
＞ 「実行時エラー70 書き込みできません」が出ます。
適当なオートシェイプと書いていますが、何に対して実行したのか
書かれたほうが原因を追究しやすいですよ。
おそらく黄色いハンドル（調整ハンドル）がないオートシェイプで
実行したのでしょうね。例えば[長方形]で実行したとか。

今回の質問は、調整ハンドルがあるものを対象にして、利用できる
マクロを希望しているはずです。それなのに調整ハンドルがでない
もので検証したりするのは、回答側にとっては迷惑です。
そもそも調整ハンドルがあるオートシェイプを対象にしての質問で
あるはずなのに、それ以外も対象にするのは筋違いですよ。
No.4の添付画像も、Wordで角丸四角形を対象にして調整値の数値を
指定したもので作図したものですから。

私の回答でPowerPointで使えるものや、調整ハンドルのないものを
対象にした記述はしていないつもりです。
その前提を無視した補足などは回答側を混乱させる原因なのです。
落ち着いて、わかりやすい質問や補足をしたほうがよいですよ。
回答でも、できるだけわかりやすく書いてくれる人のほうが理解
しやすいですよね。Office関係ではくどい書き方のほうが相互に
理解するためには必要な書き方だと思いますので。

--------------------------------------------------------
ここからは、箇条書きの項目に対してのアドバイスです。

（A）について
Web検索すれば、原因を突き止めるのはすぐにできたはずです。

Excel 2007 マクロの記録を使用して新しい図形、
図形の書式設定、および図形の効果を記録できません。
http://support.microsoft.com/kb/937620/ja
Excel2007 [図形]マクロ記録
http://oshiete.goo.ne.jp/qa/6804606.html

こちら↑で書いてあるように、Excel2007では図形のマクロ記録は
記録できない不具合があるようです。ハッキリ言ってOffice2007は
バグだらけで使い物にならないと個人的に思っています。
私は未だに古いバージョンを使っているので、新規購入するのなら
Office2010以降にするつもりでしたので。

（B）について
No.4の補足欄に書いてあるマクロ記録を見ると、長方形を用意し
カーソルが本文にある状態のまま記録を開始して、長方形の選択
から塗りつぶし効果でパターンを設定するところまで記録をした
ものですよね。
＞ ActiveDocument.Shapes("Rectangle 2").Select
この部分が本文から長方形を選択したことを意味していますので。
最初に、長方形がアクティブ（Selection.ShapeRangeの状態）で、
それからマクロ記録していれば応用ができるマクロ記録ができた
と思いますよ。
今回必要な部分だけ書き出すとこちら↓のようになります。

Sub Macro4()
'
'図形の塗りつぶし効果関連のみを設定する

With Selection.ShapeRange.Fill
　　　　.Transparency = 0#
　　　　.Visible = msoTrue
　　　　.ForeColor.RGB = RGB(0, 0, 0)
　　　　.BackColor.RGB = RGB(255, 255, 255)
　　　　.Patterned msoPatternLightUpwardDiagonal
　End With
    
End Sub

もっと簡略するならこちら↓

Sub Macro4_1()
'
'図形にハッチング効果を設定する

Selection.ShapeRange.Fill.Patterned msoPatternLightUpwardDiagonal
    
End Sub

このマクロは質問者のご自宅で検証するなら、Word2007のみ利用
することができるものだと思います（推測）。

（C）について
私はPowerPointについてのアドバイスできるスキルがないので、
このことについては回答しないつもりでしたが、憶測としての
アドバイスでよければ書いてみます。
No.3のお礼欄にこちら↓のような記述がありますよね。

＞ Set myDocument = ActivePresentation.Slides(1)
これでは駄目なのでしょうか？

こちら↓の投稿一覧からマクロ関係を探して、勉強されては。
http://www.moug.net/faq/viewforum.php?f=7
これ以外は、私にはアドバイスはできません。

（D）について
後述すると書いたものと、（B）（C）と関連ことなのですが。
PowerPointでは" Selection "の記述の前に" ActiveWindow. "を
記載することで対応できるようです。

Sub ShapeAdjustment()
'
'PowerPointで使うことが、たぶんできると思うもの
　ActiveWindow.Selection.ShapeRange.Adjustments.Item(1) = 0.1
End Sub

こちら↑のものが動かなくても、私には原因は分かりません。
あくまでWeb検索したものから推測したものなので。

-------------------------------------------------------
私はこれ以上のアドバイスはできませんので、補足などされても
追加回答はしませんのであしからず。

enunokokoro · Answer

PowerPointでの作業を希望しているようですが、Wordで作業を
する場合のアドバイスです。

（１）について
オートシェイプなどの調整値は Adjustments を使うようです。
オートシェイプの種類によって細かい設定違いがありますので、
マクロ記録できれば、それで確認するのが簡単だと思います。

No.2の回答者さんの提示したURL先からも参照できますが。
Excelの場合
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.adjustments(v=office.11).aspx
Wordの場合
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.word.adjustments(v=Office.11).aspx
こちら↑で書いてあるように、幅や高さとの相対値になるので
オートシェイプのサイズ違いによって調整される位置が違い、
同じ値でも幅が違うと形が希望通りにならなかったりします。
この相対値では幅または高さを基準にしますが、設定をしたい
オートシェイプによって基準の位置が違います。
基準になる部分は、オートシェイプの黄色いハンドルを動かす
ことで、どこを基準にしているか判断できると思います。
幅と高さが違うオートシェイプで試されると判断しやすいかと
思います。

Wordに挿入したオートシェイプの黄色ハンドルで複数の調整が
あるものであっても、アイテム1のみ指定するマクロです。
記録マクロで記録したものに少し補足しただけのものです。

Sub ShapeAdjustment()
'
' 選択したオートシェイプの調整値（アイテム1のみ）を設定
' 刻めるサイズの桁数は未検証。最小値も未検証
　　Selection.ShapeRange.Adjustments.Item(1) = 0.1
End Sub

例えば[角丸四角形]の場合は、角の丸い部分の調整値は短辺に
対する相対値になりますので、幅または高さの短辺側を基準に
半分（0.5）以下に対する数値になります。
（ No.1 さんのマクロもそれで指定していますよね）
角の丸い部分を揃えたい場合は、短辺における丸くなる部分の
相対値から丸くなる部分の数値を計算して、他の角丸四角形に
相対値をそれぞれの短辺に対する丸くなる範囲を決定する数値
として計算させて適用します。
これで丸くなる部分が揃うように設定することができます。

N0.1の回答者さんが調べてくれていますので、オートシェイプ
それぞれのアイテム数や、相対的割合での範囲及び基準などが
示されるととても参考になりますね。

（２）について
これの一覧があっても調整値のアイテムまで書いた本やサイト
があるのかな？
本については私は見たこともありませんし、私なりにWeb検索
して少し探しましたが見つけられなかったです。

（３）について
マクロを記録するための保存先を、テンプレートではなく文書
にすることもできますので、文書名で[マクロの保存先]を指定
しておき、探すときも[マクロ]ダイアログで[マクロの保存先]
を文書名にすれば一発で探せます。
http://hamay.blogspot.com/2009/01/word.html

（４）について
Word2007なら対応できるかもしれません。その他のOfficeでは
仕様変更でパターンでの対応ができなくなったみたいなので。
http://www.h7.dion.ne.jp/~fufu/2007/2007.html
http://www.geocities.jp/oyakamassan_m/exceltips/excel2.html

Sub FillPattern()
' Word2007なら塗りつぶしパターンを指定できるみたい
' 右下がりの斜線のパターンを指定する場合
　Selection.ShapeRange.Fill.Patterned msoPatternWideDownwardDiagonal
End Sub

Office2010になって、パターンは復活したそうです。

総括
相対的割合とミリ単位などの数値との関係をどう計算するかを
考えないとならないので、ポンチ絵であれば手動で調整をして
合わせたほうが簡単かもしれませんね。

ちなみに、No.2の回答者がアドバイスしているように、検索を
するだけでもかなりの情報を得ることができるかと思います。
私は古いバージョンでしか検証できないので、Office2007以降
への回答をする場合は、できるだけWeb検索してから回答をし、
検証できないながらも推測できる範囲で回答しています。
今回のものも、私の回答の半分は検索したものから得た情報を
元に、私なりの回答に補足情報ができるようにしていますので。

なお、こちら↓の過去ログは、調整値を含んで回答をしたもの。
http://oshiete.goo.ne.jp/qa/6095799.html

DreamyCat · Answer

＞＞記録する方法をご存知の方がいらっしゃったら＜＜
PPT２００７のVBE上だけでメソッドに見当をつけて、
書いてみて実行して、エラーがでれば書き直してみて実行して調べながら取り急ぎ投稿したものです。
実際に何度も何度も試行しているので、エラーにはならないはずなんですが・・・・。

imogasi · Answer

>(３）マクロの記録について
Ｇｏｏｇｌｅででも「パワーポイント２００７マクロの記録」で照会すれば、
http://office.microsoft.com/ja-jp/powerpoint-help/HA010118198.aspx
　が直ぐ出てくるじゃないですか。
ＰＰＴやＷｏｒｄのＶＢＡを使おうとしてながら、ＷＥＢ照会もしてないのは意外。
＞（１）感覚ではなく数字で調整ハンドル
それ以前のバージョンでマクロの記録を取り、またはエクセルでマクロの記録を取り、予想を立ててやってみましたか。
＃１にも出ているように、
Selection.ShapeRange.Adjustments.Item(1) = 0.2687　の  Adjustments.Item(1) 　　は使えませんか。
新しいバージョンで新しいサービスの分以外は、ＶＢＡに関しては、基本的に同じコードのままかなと思っとります。
またエクセルＶＢＡでコードを出してみて、他のＯｆｆｉｃｅでも共通している場合は多いと思う。
わたしなど、ＶＢＡは試行がすべてです。そんなこともやってないで、プログラムが出来ますか。わからない場合は私は「どうせＭＳが決めたことだもの」とつぶやいて調べにとりかかっています。理屈ではなく、ＭＳがそう決めたのだから、どこかで情報を得ないと判るはずがない。推測を効かせる部分は多くなるが。
ーー
＞VBAのmsoShapeコマンドがあるように思うのですが
Ｓｈａｐｅはオブジェクトではないですか。
ーー
Shape プロパティは
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.shape_properties(v=office.11).aspx
がありましたよ。
ーー
例えばＳｈａｐｅｓの種類
エクセルの場合で調べてみました。
ＶＢＥ画面で、表示ー「オブジェクト　プラウザ」
msoShape*　　と入れてＥｎｔｅｒ
沢山の　msoShapeArc　のようなリストが出ます。
「ライブラリ」が「Ｏｆｆｉｃｅ」になっているのは、エクセル以外でも使えると見て、試行してみては。
ーー
全般的に高度化しすぎた内容て、ソフトも３つ以上に亘り、内容も経験者で無いとわかりにくい。
いままで長年ここの質問のレベルを見ているので、推測するが、回答が出ない恐れがあり。
質問点を絞って１つずつ、質問しては。この質問も初めにソフト名が書いてなくて、あとになって数種に亘ることが判明。
初め（質問の標題等で）に明記してください。

DreamyCat · Answer

おはようございます。
２つだけちょっと調べてみました。
ややこしいようでまだ一部しか調べてないのですが、
出発の手がかりにしてください。
コードの書き方は調べる途中のものなので、きちんとしていません。

Dim i As Single, j As Long
'
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, 100, 150, 50 _
        , 100).Select

For j = 1 To 2
  For i = -1 To 1 Step 0.01
    Selection.ShapeRange.Adjustments.Item(j) = i
    DoEvents
  Next
Next
Sheet1.Shapes(1).Delete
    
 ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 100, 100, 150, 150). _
        Select
For i = 0 To 0.5 Step 0.001
    Selection.ShapeRange.Adjustments.Item(1) = i '
    DoEvents
Next

オートシェイプの黄色いハンドルのマクロ操作

No.4の回答者です。

この回答への補足

PowerPointでの作業を希望しているようですが、Wordで作業を

この回答への補足

＞＞記録する方法をご存知の方がいらっしゃったら＜＜

>(３）マクロの記録について

おはようございます。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング