ワードマクロについて
ＭＳ ＷＯＲＤ ２００３ファイル中の「図の書式
設定」の「高さ」および「幅」を、インプットボックス
で入力した数値（％）で拡大・縮小するために、
下記マクロを作成しました。
下記マクロは、ケミドローで作成した化学式を
ＷＯＲＤ文書にコピー・ペーストした図に対して
は正常に機能します。
しかし、特許・実用新案公報ＤＢ
（http://www.ipdl.inpit.go.jp/Tokujitu/tjsogodb.ipdl?N0000=101）
で検索した特許文献を、ＷＯＲＤ文書にコピー・ペースト
した場合、その図に対してマクロを実行すると、「高さ」
および「幅」が入力値とは異なるというバグがあります。
例えば、上記サイトで検索した「特開２０１０－１」を
ＷＯＲＤファイルにコピー・ペーストした後、【図１】
に対して、このマクロで「３０」（％）を入力すると、
「高さ」および「幅」に、それぞれ「１０％」および
「２２％」が入力されます。
このバグの原因および解決策をご教示下さい
ますようお願いします。
Sub Size_Each_Image()
' 選択イメージのサイズ変更。
'
' 現在のＩＭＥの状態を格納する場所を宣言
Dim sinIME As Single
' インプットボックスで入力された％の格納場所を宣言
Dim varX As Variant
'
' 選択箇所が行内図でない場合、終了。
If Selection.Type <> wdSelectionInlineShape Then End
'
' 現在のＩＭＥの状態を格納し、日本語入力をＯＦＦにする
With ActiveWindow
sinIME = .IMEMode
.IMEMode = wdIMEModeOff
End With
'
' インプットボックスでサイズ入力。
varX = InputBox("選択イメージのサイズ(％)は？", "選択イメージのサイズ")
' キャンセルされた場合、日本語入力を元に戻して終了。
If varX = "" Then
ActiveWindow.IMEMode = sinIME
End
End If
'
' サイズ入力
With Selection.InlineShapes(1)
.ScaleHeight = varX
.ScaleWidth = varX
End With
'
' ＩＭＥを元に戻す
ActiveWindow.IMEMode = sinIME
'
End Sub
ワードマクロについて
ＭＳ ＷＯＲＤ ２００３ファイル中の「図の書式
設定」の「高さ」および「幅」を、インプットボックス
で入力した数値（％）で拡大・縮小するために、
下記マクロを作成しました。
下記マクロは、ケミドローで作成した化学式を
ＷＯＲＤ文書にコピー・ペーストした図に対して
は正常に機能します。
しかし、特許・実用新案公報ＤＢ
（http://www.ipdl.inpit.go.jp/Tokujitu/tjsogodb.ipdl?N0000=101）
で検索した特許文献を、ＷＯＲＤ文書にコピー・ペースト
した場合、その図に対してマクロを実行すると、「高さ」
および「幅」が入力値とは異なるというバグがあります。
例えば、上記サイトで検索した「特開２０１０－１」を
ＷＯＲＤファイルにコピー・ペーストした後、【図１】
に対して、このマクロで「３０」（％）を入力すると、
「高さ」および「幅」に、それぞれ「１０％」および
「２２％」が入力されます。
このバグの原因および解決策をご教示下さい
ますようお願いします。
Sub Size_Each_Image()
' 選択イメージのサイズ変更。
'
' 現在のＩＭＥの状態を格納する場所を宣言
Dim sinIME As Single
' インプットボックスで入力された％の格納場所を宣言
Dim varX As Variant
'
' 選択箇所が行内図でない場合、終了。
If Selection.Type <> wdSelectionInlineShape Then End
'
' 現在のＩＭＥの状態を格納し、日本語入力をＯＦＦにする
With ActiveWindow
sinIME = .IMEMode
.IMEMode = wdIMEModeOff
End With
'
' インプットボックスでサイズ入力。
varX = InputBox("選択イメージのサイズ(％)は？", "選択イメージのサイズ")
' キャンセルされた場合、日本語入力を元に戻して終了。
If varX = "" Then
ActiveWindow.IMEMode = sinIME
End
End If
'
' サイズ入力
With Selection.InlineShapes(1)
.ScaleHeight = varX
.ScaleWidth = varX
End With
'
' ＩＭＥを元に戻す
ActiveWindow.IMEMode = sinIME
'
End Sub
ワードマクロについて
ＭＳ ＷＯＲＤ ２００３ファイル中の「図の書式
設定」の「高さ」および「幅」を、インプットボックス
で入力した数値（％）で拡大・縮小するために、
下記マクロを作成しました。
下記マクロは、ケミドローで作成した化学式を
ＷＯＲＤ文書にコピー・ペーストした図に対して
は正常に機能します。
しかし、特許・実用新案公報ＤＢ
（http://www.ipdl.inpit.go.jp/Tokujitu/tjsogodb.ipdl?N0000=101）
で検索した特許文献を、ＷＯＲＤ文書にコピー・ペースト
した場合、その図に対してマクロを実行すると、「高さ」
および「幅」が入力値とは異なるというバグがあります。
例えば、上記サイトで検索した「特開２０１０－１」を
ＷＯＲＤファイルにコピー・ペーストした後、【図１】
に対して、このマクロで「３０」（％）を入力すると、
「高さ」および「幅」に、それぞれ「１０％」および
「２２％」が入力されます。
このバグの原因および解決策をご教示下さい
ますようお願いします。
Sub Size_Each_Image()
' 選択イメージのサイズ変更。
'
' 現在のＩＭＥの状態を格納する場所を宣言
Dim sinIME As Single
' インプットボックスで入力された％の格納場所を宣言
Dim varX As Variant
'
' 選択箇所が行内図でない場合、終了。
If Selection.Type <> wdSelectionInlineShape Then End
'
' 現在のＩＭＥの状態を格納し、日本語入力をＯＦＦにする
With ActiveWindow
sinIME = .IMEMode
.IMEMode = wdIMEModeOff
End With
'
' インプットボックスでサイズ入力。
varX = InputBox("選択イメージのサイズ(％)は？", "選択イメージのサイズ")
' キャンセルされた場合、日本語入力を元に戻して終了。
If varX = "" Then
ActiveWindow.IMEMode = sinIME
End
End If
'
' サイズ入力
With Selection.InlineShapes(1)
.ScaleHeight = varX
.ScaleWidth = varX
End With
'
' ＩＭＥを元に戻す
ActiveWindow.IMEMode = sinIME
'
End Sub
ワードマクロについて
ＭＳ ＷＯＲＤ ２００３ファイル中の「図の書式
設定」の「高さ」および「幅」を、インプットボックス
で入力した数値（％）で拡大・縮小するために、
下記マクロを作成しました。
下記マクロは、ケミドローで作成した化学式を
ＷＯＲＤ文書にコピー・ペーストした図に対して
は正常に機能します。
しかし、特許・実用新案公報ＤＢ
（http://www.ipdl.inpit.go.jp/Tokujitu/tjsogodb.ipdl?N0000=101）
で検索した特許文献を、ＷＯＲＤ文書にコピー・ペースト
した場合、その図に対してマクロを実行すると、「高さ」
および「幅」が入力値とは異なるというバグがあります。
例えば、上記サイトで検索した「特開２０１０－１」を
ＷＯＲＤファイルにコピー・ペーストした後、【図１】
に対して、このマクロで「３０」（％）を入力すると、
「高さ」および「幅」に、それぞれ「１０％」および
「２２％」が入力されます。
このバグの原因および解決策をご教示下さい
ますようお願いします。
Sub Size_Each_Image()
' 選択イメージのサイズ変更。
'
' 現在のＩＭＥの状態を格納する場所を宣言
Dim sinIME As Single
' インプットボックスで入力された％の格納場所を宣言
Dim varX As Variant
'
' 選択箇所が行内図でない場合、終了。
If Selection.Type <> wdSelectionInlineShape Then End
'
' 現在のＩＭＥの状態を格納し、日本語入力をＯＦＦにする
With ActiveWindow
sinIME = .IMEMode
.IMEMode = wdIMEModeOff
End With
'
' インプットボックスでサイズ入力。
varX = InputBox("選択イメージのサイズ(％)は？", "選択イメージのサイズ")
' キャンセルされた場合、日本語入力を元に戻して終了。
If varX = "" Then
ActiveWindow.IMEMode = sinIME
End
End If
'
' サイズ入力
With Selection.InlineShapes(1)
.ScaleHeight = varX
.ScaleWidth = varX
End With
'
' ＩＭＥを元に戻す
ActiveWindow.IMEMode = sinIME
'
End Sub
over governed って？
英語ディベートをしています。トピックが”That we are over governed" なんですがいまいち日本人にとってはイメージのわきにくいトピック、、、、。どなたか、この意味を詳しく説明してくださるかたいませんか？
オーストラリア、カナダ、イギリスがこれに該当すると思われるのですが、どうしてか、またいったいなんなのか教えてください。お願いします。
VBAで変数の値をセルに表示させる
プログラム初級者です。
配列変数を使わずに
例えば、変数a1,a2・・・a10
の１０個の変数を使ってセルにその値を表示する場合に
a1,a2・・・a10をfor next を使って、省略化するにはどうすればよいでしょうか？
具体的には例えば、（私が書いたのは）
Sub aaa()
Dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a10 as Integer
Dim i as Integer
a1=1
a2=2
a3=3
a4=4
a5=5
a6=6
a7=7
a8=8
a9=9
a10=10
For i = 1 to 10
ax= "a" & str(i)
Cells(i, 1).value = ax
Next
End sub()
結果は
a 1
a 2
a 3
a 4
a 5
a 6
a 7
a 8
a 9
a 10
と表示されました。
a1と文字列をとってそれを変数と見なしさらにその変数の値を表示させたいのです。
ちなみにaxの値はa 1
とaと1の間に半角スペースが入ってしまいます。
どうすればいいか行き詰まっています。
解決方法はあるでしょうか？
