図形に赤枠をつけるマクロ

2023/10/23 12:24

このQ&Aのポイント

Excel VBAを使用して、図形に赤枠をつけるマクロを作成したいです。
また、図形の縦横比を120%に固定し、線の太さを2.25に設定したいです。
現在試しているコードではうまくいかないため、正しい記述方法を教えてください。

ベストアンサー

図形に赤枠をつける

2012/04/15 11:49

指定の場所　例；C1に画像を挿入し、挿入した画像を縦横比固定120パーセント、枠を赤に太さを2.25でつけるマクロを書きたいのですがどうしても上手くいきません赤枠と太さはどのように記述したらよろしのでしょうか？ Sub 図形リサイズ縦横比固定120パーセント() With Selection.ShapeRange .LockAspectRatio = msoTrue '縦横比固定 .Width = .Width * 1.2 '120%に図形サイズ変更 End With ActiveSheet.Shapes With Selection.ShapeRange.Line .ForeColor.RGB = RGB(255, 0, 0) '赤枠に .Weight = 2.25 '線の太さを2.25に End With End Sub

ryuujinn11
お礼率26% (47/178)

その他MS Office製品
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

DreamyCat
ベストアンサー率56% (295/524)

2012/04/15 13:06 回答No.1

他のサイトにも投稿されていて回答がついていました。この２行の順序を逆にすればいいらしいです。 .ForeColor.RGB = RGB(255, 0, 0) '赤枠に .Weight = 2.25 '線の太さを2.25に

質問者

補足 2012/04/15 22:48

ありがとうございます教えて頂いたようにやったらできたのですが順序を逆ということは記述にも優先順位のようなものがあるのでしょうか？

関連するQ&A

EXCELのVBAによる写真貼り付け時に重なる。
VBAの初心者です。エクセルに写真データを貼り付けるVBAで、以下のマクロを実行するとシートの同じセル位置B5に、写真が２枚重なった状態となります。セルのB5とH5の位置に写真をそれぞれ貼りつけるために、どのように修正すればよいのでしょうか？ご教授ください。 OS：Vista　ソフト：Excel2007 Sub 写真ファイル呼び出し() ' Sheets("風景1").Select Range("B5").Select ActiveSheet.Pictures.Insert(Worksheets("風景写真").Range("o4").Value).Select With Selection Selection.ShapeRange.LockAspectRatio = msoTrue '縦横比を固定するコマンド Selection.ShapeRange.Width = 245 '縦横比固定、幅のみを指定する End With 'Sheets("風景2").Select Range("H5").Select ActiveSheet.Pictures.Insert(Worksheets("風景写真").Range("o5").Value).Select With Selection Selection.ShapeRange.LockAspectRatio = msoTrue '縦横比を固定するコマンド Selection.ShapeRange.Width = 245 '縦横比固定、幅のみを指定する End With End Sub
- ベストアンサー
- オフィス系ソフト
Excel2007　VBAで画像挿入について
Sub 図形挿入等倍() Dim FilePath As Variant FilePath = Application.GetOpenFilename(",*.png") If Not FilePath = False Then ActiveSheet.Pictures.Insert(FilePath).Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Width = Selection.ShapeRange.Width * 1# Selection.ShapeRange.Left = ActiveCell.Left + 2.25 Selection.ShapeRange.Top = ActiveCell.Top + 2.25 End If With Selection.ShapeRange.Line .Weight = 2.25 '線の太さを2.25に .ForeColor.RGB = RGB(255, 0, 0) '赤枠に End With End Sub 上記のコードを書き、画像を挿入したときは問題ないのですが画像を挿入せずにキャンセルすると実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。とでてしまいますデバックをしてみると With Selection.ShapeRange.Lineの部分が黄色くなっているのでここを修正したらいいと思うのですがどのように修正したらいいのか分かりませんお分かりの方いましたらご教授お願い致します
- ベストアンサー
- その他MS Office製品
画像をアクティブセルの左上隅に配置し任意のセルに
画像をアクティブセルの左上隅に配置し任意のセルにその画像ファイル名を自動で入力したいですやりたいことは以下になります例えば画像をアクティブセル（D2）の左上隅に貼り付けて貼り付けた画像のファイル名をC2に自動で入力をしたいですファイル名に関しては拡張子も明記するコードとしないコード二つご教授して頂けると大変嬉しいです下記のコード二つを組み合わせればできそうなんですがどのようにしたらいいのか分かりませんよろしくお願いします Sub 図形挿入() Dim FilePath As Variant FilePath = Application.GetOpenFilename(",*.png") If Not FilePath = False Then ActiveSheet.Pictures.Insert(FilePath).Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Width = Selection.ShapeRange.Width * 1# Selection.ShapeRange.Left = ActiveCell.Left + 2.25 Selection.ShapeRange.Top = ActiveCell.Top + 2.25 With Selection.ShapeRange.Line .Weight = 2.25 '線の太さを2.25に .ForeColor.RGB = RGB(255, 0, 0) '赤枠に End With End If End Sub Sub ファイル名をセルに入力() Dim OpenFileName As String Dim tmp As Variant OpenFileName = Application.GetOpenFilename(FileFilter:="画像 ,*.png; *.jpg; *.gif; *.bmp", Title:="ファイルの選択") If OpenFileName <> "False" Then tmp = Split(OpenFileName, "\") Range("C2").Value = tmp(UBound(tmp)) End If End Sub
- ベストアンサー
- その他MS Office製品
エクセルで、図を削除した時にセルの内容を変更するには
Excel97, Windows98SEを使用しています。下記のようなマクロで、シートに写真を挿入しています。例えば選択した写真が間違っていた時に、その写真を選択して右クリック → 切り取りという操作をしますが、その時に、写真を挿入した際にセルに入力した文字列も自動的に消えるようにしたいのです。 Private Sub Worksheet_Activate() で、選択した写真の入っているセル番地を取得するのかな？と考えたのですがその先がわかりません。ご存知の方、どうぞよろしくお願いいたします。 Sub 写真挿入() On Error GoTo エラー処理写真パス = Application.GetOpenFilename '「ファイルを開く」ダイアログ表示・ファイル名取得 ActiveSheet.Pictures.Insert(写真パス).Select '図を挿入 With Selection .ShapeRange.LockAspectRatio = msoTrue '縦横比を固定する .ShapeRange.Height = 250 '写真の高さ .Name = "写真" '名前を付ける End With If Selection.Width < Selection.Height Then '縦長の写真だった場合 Selection.ShapeRange.IncrementLeft 72# '枠の中央に配置する End If ActiveCell.Offset(0, 1).Value = 写真パス '取得したフルパスを隣のセルへ入力エラー処理: End Sub
- ベストアンサー
- オフィス系ソフト
マクロの画像サイズについてお聞きしたいのです。
マクロの画像サイズについてお聞きしたいのです。マクロの記録で画像を縦横比を固定するで高さを4.23cmに設定したら、横が5.64cmになり、下のようなのマクロの値になりました。そこで質問なのですが、画像の1辺(高さ)を4.23cm(約120pt)に定めるともう一辺が縦横比の固定で自動的に定まるマクロは作れますか？表に入る大きさが高さが基準で、いろんなサイズでテストしてみた結果、サイズ違いの画像ができてしまう時があります。識者の方、よろしくお願いします。【↓今作成中マクロの一部】 With Selection.ShapeRange .LockAspectRatio = msoTrue .Height = 120# .Width = 159.75 .Rotation = 0# Selection.Cut ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:= _ False Range("A5").Select End With
- ベストアンサー
- その他MS Office製品
エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、分からない部分があって困ってます。 (1)挿入したいセルにカーソルを合わせる (2)マクロ　挿入－図－ファイル－図の挿入－図の書式設定－サイズ－30％この作業を覚えさせると以下になりました。 Sub Macro3() ActiveSheet.Pictures.Insert("C:\Documents and Settings\デスクトップ\1.JPG") _ .Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 360# Selection.ShapeRange.Width = 480# Selection.ShapeRange.Rotation = 0# End Sub これだと、写真が指定されてしまいます。マクロの途中で止まって任意の写真を都度選べるようにできますか？膨大な量の写真をセルに並べていきたいのです。
- ベストアンサー
- オフィス系ソフト
Excel-VBA コメントの書式設定
Excel-VBA コメントの書式設定コメントの書式設定をExcel-VBAで定義したい。従い「マクロの記録」を実行して下記のソースコードを取得しました。これを実行すると次の実行エラーが発生しました!? ★正常に動作させるソースコードの事例をいただければ幸いです。ご指導よろしくお願いいたします。実行時エラー'438' オブジェクトは、このプロパティまたはメソッドをサポートしていません。 Sub Macro1() ' 処理:マクロの記録 ' 目的:「コメントの挿入」と「コメントの書式設定」をする。 Range("A2").Select Range("A2").AddComment Range("A2").Comment.Visible = False Range("A2").Comment.Text Text:="コメント" & Chr(10) & "今日は良いお天気ですね。" '▽次で実行エラーが起きる!? Selection.ShapeRange.ScaleWidth 1.58, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.49, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 141.75 Selection.ShapeRange.Width = 283.5 Range("A1").Select End Sub
- ベストアンサー
- Visual Basic
エクセル2007のマクロで画像挿入がうまくいきません。
エクセル2007のマクロで画像挿入がうまくいきません。写真のサイズ縦横比がセルにあっていないので伸びてしまいます。下記のプログラムでサイズ変更も可能でしょうか？フォームのボタンの上に張り付けた場合、ボタンを隠す事は出来ますか？ボタンの色は変更できるのでしょうか？いろいろわがままな質問で申し訳ありません。マクロ初心者です。 Sub Pic_in2007() fname = Application.GetOpenFilename ActiveSheet.Pictures.Insert(fname).Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = range("B5:C6").height Selection.ShapeRange.Width = range("B5:C6").width Selection.ShapeRange.left = range("B5:C6").left Selection.ShapeRange.top = range("B5:C6").top End Sub
- ベストアンサー
- オフィス系ソフト
PowerPointのVBAで、図形を縮小後、画質を落とさずに出力する方法
PowerPointのVBAで、スライド上の図形のサイズを縮小した後、この図形をjpg画像として保存したいです。オペレーションはこんな感じです↓ 図形縮小→図形を選択→右クリック→[図として保存]→JPGファイル名で保存上記操作を「マクロの記録」で記録したものを実行すると、スライド全体が保存されてしまいます。また、マクロで.ShapeRange.Exportで画像出力すると、画質が荒くなって出力されます。画質を落とさず、図形をjpgとして保存する方法はないでしょうか。よろしくお願い致します。以下が、現状の私のプログラムです。 Sub Macro() ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="C:\aaaa.JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-89, Width:=960, Height:=720).Select ActiveWindow.LargeScroll ToRight:=1 With ActiveWindow.Selection.ShapeRange .ScaleWidth 0.25, msoFalse, msoScaleFromTopLeft .ScaleHeight 0.25, msoFalse, msoScaleFromTopLeft End With With ActiveWindow.Selection.ShapeRange .IncrementLeft 219.12 .IncrementTop 416.75 End With ActiveWindow.Selection.ShapeRange.Select 'これだと画質が落ちます。↓ Call ActiveWindow.Selection.ShapeRange.Export("C:\\bbb.jpg", ppSaveAsJPG) 'これだとスライド全体が保存されます。↓ ' ActivePresentation.SaveAs FileName:="C:\bbb.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse End Sub
- ベストアンサー
- オフィス系ソフト
Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。
Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。オートシェイプ図形を５０個ならべて、マウスでクリックしてものは色が変わるようにしたいと思います。マクロ記録をすると以下のようになりました。 Sub Macro1() ActiveSheet.Shapes("AutoShape 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 45 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid End Sub このプログラムを５０個書くわけにはいかないのですが、プログラムで処理するのに問題点が２つ出てきました。・オートシェイプ図形の名前が"AutoShape 1"となっていますが、これを変更したいのですが、書式設定にはありませんでした。変更するにはどうすればよいのでしょう？・クリックしたオートシェイプ図形がどれであるかを返す関数がないと、どの図形がクリックされたかわからないのですが、これを返す関数はあるのでしょうか？よろしくお願いします。
- ベストアンサー
- その他MS Office製品