No.2ベストアンサー
- 回答日時:
記録できましたっけ?
ScaleWidth|Heightメソッドを使って元の大きさから計算して求めるのが近道だと思ってました。
Sub test()
Dim ret
If TypeName(Selection) = "Picture" Then
ret = fGetPicScale(Selection)
If IsArray(ret) Then
MsgBox "x:= " & ret(0) & vbLf & "y:=" & ret(1)
End If
End If
End Sub
Function fGetPicScale(ByRef pic As Picture)
Dim xy(0 To 1) As Single
Dim W As Single
Dim H As Single
Dim LC As Long
On Error GoTo errExit
With pic.ShapeRange
W = .Width
H = .Height
LC = .LockAspectRatio
.LockAspectRatio = msoFalse
.ScaleWidth 1, msoTrue
.ScaleHeight 1, msoTrue
xy(0) = W / .Width
xy(1) = H / .Height
.Width = W
.Height = H
.LockAspectRatio = LC
End With
fGetPicScale = xy
errExit:
End Function
この回答へのお礼
お礼日時:2010/08/02 12:14
返事が遅くなりスミマセンでした。
教えていただいた方法ですとトリムしたときに
倍率が上手く出ないような感じですが
大変貴重なご回答で解決しました
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- マウス・キーボード ロジクールGHUBのインストール~初期設定 1 2023/04/23 21:36
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- デジタルカメラ デジタルズームの倍率について 4 2023/05/03 15:05
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- フリーソフト 倍率自動調整して全画面表示できるフリーの画像ビューアー 1 2023/08/24 10:55
- Visual Basic(VBA) VBA言語プログラミング 1 2022/11/19 17:16
- デジタルカメラ デジタルカメラのデジタルズーム倍率について 5 2023/05/01 09:58
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- Excel(エクセル) 【VBA】 Alt+PrintScreenにてアクティブウィンドウのスクショを貼付する方法 4 2022/12/08 20:53
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
cellsで特定の離れた範囲を選択...
-
エクセルでツールバーに「縮小...
-
エクセルシートをまとめて印刷...
-
エクセル2007 テキストボ...
-
Powerpointでランダムな数字の...
-
VBAをVBに変換する方法
-
エクセルのマクロでSelection.S...
-
ファイル名を今日の日付、時刻...
-
wordのマクロで縮小して貼り付...
-
エクセル vba クリック~離し...
-
VBAを使ってエクセルシート...
-
エクセルワークシート上に印刷...
-
ピボットグラフの書式の固定に...
-
VBA[Private Sub]のコードをシ...
-
エクセルVBAで、画像の倍率を知...
-
VBAでグラフXj軸の文字列を左90...
-
VBAでシートの保護をかける際に...
-
VBAに詳しい方教えてください。
-
Excelの中でオートシェイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
cellsで特定の離れた範囲を選択...
-
Powerpointでランダムな数字の...
-
VBAに詳しい方教えてください。
-
VBA[Private Sub]のコードをシ...
-
VBAを使ってエクセルシート...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
ピボットグラフの書式の固定に...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルシートをまとめて印刷...
-
どのドキュメントは暗号化され...
-
最初の1回のみにボタンクリッ...
-
エクセルワークシート上に印刷...
-
エクセル2007 テキストボ...
-
エクセルのマクロでSelection.S...
-
エクセルVBAで、画像の倍率を知...
-
VBAで棒グラフの色を変えたい
おすすめ情報