[[20150727113023]]　『マクロが正しく使用できない』（sasa）　ページの最後に飛ぶ

『マクロが正しく使用できない』（sasa）

会社で使用しているマクロが入っているブックに

ボタンを押して写真を挿入し、既定の枠の中に圧縮して入る用になっている仕組みらしいのですが、自分のＰＣでは、どのマクロボタンを押しても写真が圧縮されず、
枠からはみ出て挿入されてしまいます。

マクロのセキュリティを低にしています。
とくにエラーメッセージはでないのですが、他に確認できるところはないでしょうか？

よろしくお願いします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

こんにちは

まずは、そのマクロを作成した人に聞くのが早いのでは？

出来なければ、少なくともそのコードを開示しないと難しいですよ。

後は、処理可能な他の人のPCのExcelとOSのバージョンは同じですか？

（ウッシ） 2015/07/27(月) 12:05

了解しました。
同じ環境のＰＣでも、できていたとのことでした。
下記にコードを開示します。
モジュールがたくさんありよくわかりませんが、
最初のところを表示します。

Sub ボタン1_Click()
Call Harituke_(4)
End Sub
Private Sub CommandButton4_Click()
Call Harituke_(4)
End Sub

Sub Harituke_(myNum As Integer)
Dim myGetFileName
Dim myFileName As String

myGetFileName = Application.GetOpenFilename("画像 (*.gif;*.bmp;*.jpg;*.wmf),*.gif;*.bmp;*.jpg;*.wmf,すべてのファイル(*.*),*.*")

If myGetFileName = False Then

    Exit Sub
End If
myFileName = Dir(myGetFileName)
If LCase(myFileName) Like "*.jpg" Then
    myFileName = Mid(myFileName, 1, Len(myFileName) - 4)
End If

Select Case myNum

    Case 4
        Range("b2").Select

End Select

ActiveSheet.Pictures.Insert(myGetFileName).Select

With Selection.ShapeRange

    .LockAspectRatio = True
    .Width = 361
End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

以上、よろしくお願いいたします。

（sasa） 2015/07/27(月) 12:17

こんにちは

コードを見る限り、
「既定の枠の中に圧縮して入る用になっている仕組み」
にはなっていないですよ。

幅が、.Width = 361 で固定サイズになっています。

（ウッシ） 2015/07/27(月) 12:28

 想像ですけど、会社で使用しているブックの画像挿入シート（このマクロが書かれているシート）の選択可能領域の列幅が 361 に設定されているのではないでしょうか？
 それに対して、(sasa)さんは、そう設定されていないシートのシートモジュールにコードだけをコピペして処理してませんか？

（β） 2015/07/27(月) 18:09

コメントありがとうございます。
その設定を確認するには、どのようにすればよいでしょうか。
よろしくお願いいたします。
（sasa） 2015/07/27(月) 20:11

 その会社でうまくいっているブックの標準モジュールに

 Sub 確認()
    MsgBox Selection.Width
 End Sub

 こんなコードを書いて、うまくいっているセルを選択して実行してみてください。
 361 という値が表示されませんか？

 で、そちらで、うまくいかないというブックにもこのコードを書いて、うまくいかないセルを選択して実行。
 361 には、なっていないんでしょうね。

（β） 2015/07/27(月) 20:33

 ↑はあくまで『想像』です。
 確実なことはウッシさんコメント通り、【そのマクロを作成した人に聞くのが早い】です。

（β） 2015/07/28(火) 05:50

コメント返信：

[ 一覧(最新更新順) ]

[[20150727113023]] 『マクロが正しく使用できない』（sasa） ページの最後に飛ぶ

[[20150727113023]]　『マクロが正しく使用できない』（sasa）　ページの最後に飛ぶ