Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15209 / 76807

←次へ　｜　前へ→


	【67081】オートシェイプ斜線について

sya - 10/11/2(火) 0:53 -


	引用なし

	パスワード

ネット上で探して利用しています
vba詳しくなくて教授お願いしたいのですが
現在のコードは左下から右上なのですが
これを左上から右下にコードを変更したいのですが
よろしくお願いします。単純な質問ですみません
Sub Add()
　　Dim Bx As Single, By As Single
　　Dim Ex As Single, Ey As Single
　　Dim RR As Range, MyObj As Object, Ch As Boolean
　　
　　Ch = True
　　If TypeName(Selection) <> "Range" Then Exit Sub
　　Set RR = Selection
　　For Each MyObj In ActiveSheet.Lines
　　　　If MyObj.TopLeftCell.Row = RR.Row And _
　　　　　　　 MyObj.TopLeftCell.Column = RR.Column Then
　　　　　 MyObj.Delete
　　　　　 Ch = False
　　　　　 Exit For
　　　　End If
　　Next MyObj
　　If Ch Then
　　　 With RR
　　　　　　Bx = .Left
　　　　　　By = .Top + .Height
　　　　　　Ex = Bx + .Width
　　　　　　Ey = .Top
　　　　　　.Worksheet.Shapes.AddLine(Bx, By, Ex, Ey).Line.Weight = 0.5
　　　 End With
　　End If
　　Set RR = Nothing
End Sub

2 hits

▼

【67081】オートシェイプ斜線について sya 10/11/2(火) 0:53

≪