[[20050907124724]] 『写真台帳で枠図形を残して画像のみ消去する方法』(みず64) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『写真台帳で枠図形を残して画像のみ消去する方法』(みず64)

「写真台帳作成」[[20040929082726]]を活用させて頂いております。
工事写真の整理が能率よく行え、とても重宝しています。川野鮎太郎先生に感謝。感謝。
写真の貼付け間違いは、上書き(上に重ね貼り)で対処していますが、どうしても写真を
消去したい時があります。「Delete」キーを押すと枠図形も一緒に削除されてしまいます。
枠図形を残して画像のみ消去する方法を(マクロ記述)を教えて下さい。


 枠だけ残したい場合はマクロでなくても、カラーパレットの「白」または、
 「塗りつぶしなし」で対処できますよ。^^

 (川野鮎太郎)てか、先生はやめてください・・_/ ̄|○ il||li


 画像だけ消去できました。狙い・目的の半分は掴み取ることが出来ました。
「写真貼付」という名の押釦(図形)をマクロ登録しています。バランス的に
「写真消去」という名の押釦をも作りたいと考えています。
 カラーパレットの「白」または、「塗りつぶしなし」をマクロ記録したところ、
 Rectangle番号なるものがあってマクロ化に失敗しました。
 マクロ記述をぜひご教示願います。(みず64)


 >Rectangle番号なるものがあってマクロ化に失敗しました。
 図形を選択した状態ではないからでしょうか。
 
Sub 透明色()
Dim MyBox As String
On Error Resume Next
With Selection
    MyBox = .ShapeRange.Name
    If Err.Number = 438 Then
        MsgBox "画像を消したい枠を" & Chr(10) & "選択してから実行してください。"
        Exit Sub
    End If
    .ShapeRange.Fill.Visible = msoFalse
End With
End Sub
 
−−−−−−−−−−−−−−−−−−−−−−
Sub 白抜き()
Dim MyBox As String
On Error Resume Next
With Selection
    MyBox = Selection.ShapeRange.Name
    If Err.Number = 438 Then
        MsgBox "画像を消したい枠を" & Chr(10) & "選択してから実行してください。"
        Exit Sub
    End If
    .ShapeRange.Fill.ForeColor.SchemeColor = 9
    .ShapeRange.Fill.Solid
End With
End Sub

 (川野鮎太郎)


A4版タテで12枚(横長画像9枚、縦長画像3枚)の写真を貼付出来る写真貼付シートが完成。
「写真貼付」/「写真消去」押釦を押せば、写真を貼付したり消去したり自由自在。
能率よく仕事ができそうです。
有り難う御座いました。

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.