Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' セルA1の値が1の場合のみ処理を実行する
If Range("A1").Value = 1 Then
Dim DataObj As New MSForms.DataObject
Dim shp As Shape
Dim txt As String
' セルの値をクリップボードにコピー
DataObj.SetText Target.Value
' イベントをキャンセルして、元々のセルの編集を防止
Cancel = True
' 図形"AA"が存在するかチェック
If Not Sheet1.Shapes("AA") Is Nothing Then
' テキストボックスの文字列を取得
txt = Sheet1.Shapes("AA").TextFrame.Characters.Text
' ダブルクリックされたセルの文字列を追記
txt = txt & vbCrLf & Target.Value
' テキストボックスに新しい文字列を設定
Sheet1.Shapes("AA").TextFrame.Characters.Text = txt
' テキストボックスの表示をリフレッシュ
Sheet1.Shapes("AA").Select
Sheet1.Shapes("AA").TopLeftCell.Select
Else
' 図形"AA"が存在しない場合は作成し、セルの文字列を設定
Set shp = Sheet1.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 100)
shp.Name = "AA"
shp.TextFrame.Characters.Text = Target.Value
End If
End If
End Sub
Sub ChangeCellValue()
If Range("A1").Value = 1 Then
Range("A1").ClearContents ' A1が1の場合、空白にする
Else
Range("A1").Value = 1 ' A1が1でない場合、1にする
End If
End Sub
★サウンドレコーダー、SnippingToolのショートカットを作成する方法
「Windowsキー + R」でファイル名を指定して実行ダイアログを出す
⇒shell:AppsFolder を入力する。ショートカット作成画面が出てくる。
⇒claunchには「vbsスクリプト」を作って登録
Set objShell = CreateObject("WScript.Shell")
objShell.Run """C:\Users\hiro8\Desktop\Snipping Tool.lnk"""
Set objShell = Nothing
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ クリップ画像保存-ダイアログ
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# クリップボードの画像を取得
$clipboardImage = Get-Clipboard -Format Image
if ($clipboardImage -ne $null) {
# ファイルダイアログを表示して保存先フォルダを選択
$saveFileDialog = New-Object System.Windows.Forms.SaveFileDialog
$saveFileDialog.Filter = "画像ファイル (*.png)|*.png"
$saveFileDialog.Title = "画像を保存"
if ($saveFileDialog.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) {
# 選択されたファイルパスを取得
$savePath = $saveFileDialog.FileName
# 画像をファイルとして保存
$clipboardImage.Save($savePath)
Write-Host "クリップボードの画像を $savePath に保存しました。"
} else {
Write-Host "保存がキャンセルされました。"
}
} else {
Write-Host "クリップボードに画像が存在しません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ クリップ画像保存-直接
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# 保存先フォルダを指定
$saveFolder = [System.Environment]::GetFolderPath('Desktop')
# クリップボードの画像を取得
$clipboardImage = Get-Clipboard -Format Image
if ($clipboardImage -ne $null) {
# 保存する画像の基本ファイル名
$baseFileName = "image"
# 保存するファイルの拡張子
$extension = ".png"
# 保存先のパスを初期化
$counter = 1
$savePath = Join-Path -Path $saveFolder -ChildPath ($baseFileName + "_" + "{0:d2}" -f $counter + $extension)
# 既存のファイルがある場合は連番を付けて保存パスを変更
while (Test-Path $savePath -PathType Leaf) {
$counter++
$savePath = Join-Path -Path $saveFolder -ChildPath ($baseFileName + "_" + "{0:d2}" -f $counter + $extension)
# 99までの連番で終了する
if ($counter -gt 99) {
Write-Host "連番の上限(99)に達しました。保存できません。"
break
}
}
# 画像をファイルとして保存
$clipboardImage.Save($savePath)
Write-Host "クリップボードの画像を $savePath に保存しました。"
} else {
Write-Host "クリップボードに画像が存在しません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ メール⇒添付ファイル
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# Outlookアプリケーションを作成または既存のOutlookプロセスに接続
$Outlook = New-Object -ComObject Outlook.Application
# ブラウザ画面で選択しているメールを取得する時は1行目
# ポップアウトメールを取得する時は2行目
# MailItem = $Outlook.ActiveExplorer().Selection[1]
$MailItem = $Outlook.ActiveInspector().CurrentItem
# メールの添付ファイルを取得
$Attachments = $MailItem.Attachments
# 添付ファイルがあるか確認
if ($Attachments.Count -gt 0) {
# デスクトップフォルダのパスを取得
$DesktopPath = [System.Environment]::GetFolderPath('Desktop')
# 各添付ファイルをデスクトップに保存
foreach ($Attachment in $Attachments) {
$AttachmentFileName = $Attachment.FileName
$AttachmentFilePath = Join-Path -Path $DesktopPath -ChildPath $AttachmentFileName
$Attachment.SaveAsFile($AttachmentFilePath)
Write-Host "添付ファイルを保存しました: $AttachmentFileName"
}
} else {
Write-Host "メールに添付ファイルがありません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ MELGIT-GAI-メール修正
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# URLを指定
$url = "https://chat.openai.com/"
# ブラウザでURLを開く
Start-Process $url
# クリップボードの内容を取得
$clipboardText = Get-Clipboard
# 変数の最初と最後に " がある場合は削除
if ($clipboardText -match '^"(.*)"$') {
$clipboardText = $matches[1]
}
# 変数の最初と最後に < を追加
$modifiedText = "あなたはビジネスマン。下記メール文を分かりやすく簡潔な文面にしてください。社内関係者宛てです。" + "`r`n" + "`r`n" + $clipboardText
# 変数の内容をクリップボードにコピー
$modifiedText | Set-Clipboard
wp-admin
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ クリップ画像保存-ダイアログ
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# クリップボードの画像を取得
$clipboardImage = Get-Clipboard -Format Image
if ($clipboardImage -ne $null) {
# ファイルダイアログを表示して保存先フォルダを選択
$saveFileDialog = New-Object System.Windows.Forms.SaveFileDialog
$saveFileDialog.Filter = "画像ファイル (*.png)|*.png"
$saveFileDialog.Title = "画像を保存"
if ($saveFileDialog.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) {
# 選択されたファイルパスを取得
$savePath = $saveFileDialog.FileName
# 画像をファイルとして保存
$clipboardImage.Save($savePath)
Write-Host "クリップボードの画像を $savePath に保存しました。"
} else {
Write-Host "保存がキャンセルされました。"
}
} else {
Write-Host "クリップボードに画像が存在しません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ クリップ画像保存-直接
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# 保存先フォルダを指定
$saveFolder = [System.Environment]::GetFolderPath('Desktop')
# クリップボードの画像を取得
$clipboardImage = Get-Clipboard -Format Image
if ($clipboardImage -ne $null) {
# 保存する画像の基本ファイル名
$baseFileName = "image"
# 保存するファイルの拡張子
$extension = ".png"
# 保存先のパスを初期化
$counter = 1
$savePath = Join-Path -Path $saveFolder -ChildPath ($baseFileName + "_" + "{0:d2}" -f $counter + $extension)
# 既存のファイルがある場合は連番を付けて保存パスを変更
while (Test-Path $savePath -PathType Leaf) {
$counter++
$savePath = Join-Path -Path $saveFolder -ChildPath ($baseFileName + "_" + "{0:d2}" -f $counter + $extension)
# 99までの連番で終了する
if ($counter -gt 99) {
Write-Host "連番の上限(99)に達しました。保存できません。"
break
}
}
# 画像をファイルとして保存
$clipboardImage.Save($savePath)
Write-Host "クリップボードの画像を $savePath に保存しました。"
} else {
Write-Host "クリップボードに画像が存在しません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ メール⇒添付ファイル
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# Outlookアプリケーションを作成または既存のOutlookプロセスに接続
$Outlook = New-Object -ComObject Outlook.Application
# ブラウザ画面で選択しているメールを取得する時は1行目
# ポップアウトメールを取得する時は2行目
# MailItem = $Outlook.ActiveExplorer().Selection[1]
$MailItem = $Outlook.ActiveInspector().CurrentItem
# メールの添付ファイルを取得
$Attachments = $MailItem.Attachments
# 添付ファイルがあるか確認
if ($Attachments.Count -gt 0) {
# デスクトップフォルダのパスを取得
$DesktopPath = [System.Environment]::GetFolderPath('Desktop')
# 各添付ファイルをデスクトップに保存
foreach ($Attachment in $Attachments) {
$AttachmentFileName = $Attachment.FileName
$AttachmentFilePath = Join-Path -Path $DesktopPath -ChildPath $AttachmentFileName
$Attachment.SaveAsFile($AttachmentFilePath)
Write-Host "添付ファイルを保存しました: $AttachmentFileName"
}
} else {
Write-Host "メールに添付ファイルがありません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ MELGIT-GAI-メール修正
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# URLを指定
$url = "https://chat.openai.com/"
# ブラウザでURLを開く
Start-Process $url
# クリップボードの内容を取得
$clipboardText = Get-Clipboard
# 変数の最初と最後に " がある場合は削除
if ($clipboardText -match '^"(.*)"$') {
$clipboardText = $matches[1]
}
# 変数の最初と最後に < を追加
$modifiedText = "あなたはビジネスマン。下記メール文を分かりやすく簡潔な文面にしてください。社内関係者宛てです。" + "`r`n" + "`r`n" + $clipboardText
# 変数の内容をクリップボードにコピー
$modifiedText | Set-Clipboard
★サウンドレコーダー、SnippingToolのショートカットを作成する方法
「Windowsキー + R」でファイル名を指定して実行ダイアログを出す
⇒shell:AppsFolder を入力する。ショートカット作成画面が出てくる。
⇒claunchには「vbsスクリプト」を作って登録
Set objShell = CreateObject("WScript.Shell")
objShell.Run """C:\Users\hiro8\Desktop\Snipping Tool.lnk"""
Set objShell = Nothing
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ クリップ画像保存-ダイアログ
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# クリップボードの画像を取得
$clipboardImage = Get-Clipboard -Format Image
if ($clipboardImage -ne $null) {
# ファイルダイアログを表示して保存先フォルダを選択
$saveFileDialog = New-Object System.Windows.Forms.SaveFileDialog
$saveFileDialog.Filter = "画像ファイル (*.png)|*.png"
$saveFileDialog.Title = "画像を保存"
if ($saveFileDialog.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) {
# 選択されたファイルパスを取得
$savePath = $saveFileDialog.FileName
# 画像をファイルとして保存
$clipboardImage.Save($savePath)
Write-Host "クリップボードの画像を $savePath に保存しました。"
} else {
Write-Host "保存がキャンセルされました。"
}
} else {
Write-Host "クリップボードに画像が存在しません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ クリップ画像保存-直接
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# 保存先フォルダを指定
$saveFolder = [System.Environment]::GetFolderPath('Desktop')
# クリップボードの画像を取得
$clipboardImage = Get-Clipboard -Format Image
if ($clipboardImage -ne $null) {
# 保存する画像の基本ファイル名
$baseFileName = "image"
# 保存するファイルの拡張子
$extension = ".png"
# 保存先のパスを初期化
$counter = 1
$savePath = Join-Path -Path $saveFolder -ChildPath ($baseFileName + "_" + "{0:d2}" -f $counter + $extension)
# 既存のファイルがある場合は連番を付けて保存パスを変更
while (Test-Path $savePath -PathType Leaf) {
$counter++
$savePath = Join-Path -Path $saveFolder -ChildPath ($baseFileName + "_" + "{0:d2}" -f $counter + $extension)
# 99までの連番で終了する
if ($counter -gt 99) {
Write-Host "連番の上限(99)に達しました。保存できません。"
break
}
}
# 画像をファイルとして保存
$clipboardImage.Save($savePath)
Write-Host "クリップボードの画像を $savePath に保存しました。"
} else {
Write-Host "クリップボードに画像が存在しません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ メール⇒添付ファイル
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# Outlookアプリケーションを作成または既存のOutlookプロセスに接続
$Outlook = New-Object -ComObject Outlook.Application
# ブラウザ画面で選択しているメールを取得する時は1行目
# ポップアウトメールを取得する時は2行目
# MailItem = $Outlook.ActiveExplorer().Selection[1]
$MailItem = $Outlook.ActiveInspector().CurrentItem
# メールの添付ファイルを取得
$Attachments = $MailItem.Attachments
# 添付ファイルがあるか確認
if ($Attachments.Count -gt 0) {
# デスクトップフォルダのパスを取得
$DesktopPath = [System.Environment]::GetFolderPath('Desktop')
# 各添付ファイルをデスクトップに保存
foreach ($Attachment in $Attachments) {
$AttachmentFileName = $Attachment.FileName
$AttachmentFilePath = Join-Path -Path $DesktopPath -ChildPath $AttachmentFileName
$Attachment.SaveAsFile($AttachmentFilePath)
Write-Host "添付ファイルを保存しました: $AttachmentFileName"
}
} else {
Write-Host "メールに添付ファイルがありません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ MELGIT-GAI-メール修正
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# URLを指定
$url = "https://chat.openai.com/"
# ブラウザでURLを開く
Start-Process $url
# クリップボードの内容を取得
$clipboardText = Get-Clipboard
# 変数の最初と最後に " がある場合は削除
if ($clipboardText -match '^"(.*)"$') {
$clipboardText = $matches[1]
}
# 変数の最初と最後に < を追加
$modifiedText = "あなたはビジネスマン。下記メール文を分かりやすく簡潔な文面にしてください。社内関係者宛てです。" + "`r`n" + "`r`n" + $clipboardText
# 変数の内容をクリップボードにコピー
$modifiedText | Set-Clipboard
wp-admin
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ クリップ画像保存-ダイアログ
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# クリップボードの画像を取得
$clipboardImage = Get-Clipboard -Format Image
if ($clipboardImage -ne $null) {
# ファイルダイアログを表示して保存先フォルダを選択
$saveFileDialog = New-Object System.Windows.Forms.SaveFileDialog
$saveFileDialog.Filter = "画像ファイル (*.png)|*.png"
$saveFileDialog.Title = "画像を保存"
if ($saveFileDialog.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) {
# 選択されたファイルパスを取得
$savePath = $saveFileDialog.FileName
# 画像をファイルとして保存
$clipboardImage.Save($savePath)
Write-Host "クリップボードの画像を $savePath に保存しました。"
} else {
Write-Host "保存がキャンセルされました。"
}
} else {
Write-Host "クリップボードに画像が存在しません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ クリップ画像保存-直接
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# 保存先フォルダを指定
$saveFolder = [System.Environment]::GetFolderPath('Desktop')
# クリップボードの画像を取得
$clipboardImage = Get-Clipboard -Format Image
if ($clipboardImage -ne $null) {
# 保存する画像の基本ファイル名
$baseFileName = "image"
# 保存するファイルの拡張子
$extension = ".png"
# 保存先のパスを初期化
$counter = 1
$savePath = Join-Path -Path $saveFolder -ChildPath ($baseFileName + "_" + "{0:d2}" -f $counter + $extension)
# 既存のファイルがある場合は連番を付けて保存パスを変更
while (Test-Path $savePath -PathType Leaf) {
$counter++
$savePath = Join-Path -Path $saveFolder -ChildPath ($baseFileName + "_" + "{0:d2}" -f $counter + $extension)
# 99までの連番で終了する
if ($counter -gt 99) {
Write-Host "連番の上限(99)に達しました。保存できません。"
break
}
}
# 画像をファイルとして保存
$clipboardImage.Save($savePath)
Write-Host "クリップボードの画像を $savePath に保存しました。"
} else {
Write-Host "クリップボードに画像が存在しません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ メール⇒添付ファイル
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# Outlookアプリケーションを作成または既存のOutlookプロセスに接続
$Outlook = New-Object -ComObject Outlook.Application
# ブラウザ画面で選択しているメールを取得する時は1行目
# ポップアウトメールを取得する時は2行目
# MailItem = $Outlook.ActiveExplorer().Selection[1]
$MailItem = $Outlook.ActiveInspector().CurrentItem
# メールの添付ファイルを取得
$Attachments = $MailItem.Attachments
# 添付ファイルがあるか確認
if ($Attachments.Count -gt 0) {
# デスクトップフォルダのパスを取得
$DesktopPath = [System.Environment]::GetFolderPath('Desktop')
# 各添付ファイルをデスクトップに保存
foreach ($Attachment in $Attachments) {
$AttachmentFileName = $Attachment.FileName
$AttachmentFilePath = Join-Path -Path $DesktopPath -ChildPath $AttachmentFileName
$Attachment.SaveAsFile($AttachmentFilePath)
Write-Host "添付ファイルを保存しました: $AttachmentFileName"
}
} else {
Write-Host "メールに添付ファイルがありません。"
}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
↓↓↓↓ MELGIT-GAI-メール修正
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
# URLを指定
$url = "https://chat.openai.com/"
# ブラウザでURLを開く
Start-Process $url
# クリップボードの内容を取得
$clipboardText = Get-Clipboard
# 変数の最初と最後に " がある場合は削除
if ($clipboardText -match '^"(.*)"$') {
$clipboardText = $matches[1]
}
# 変数の最初と最後に < を追加
$modifiedText = "あなたはビジネスマン。下記メール文を分かりやすく簡潔な文面にしてください。社内関係者宛てです。" + "`r`n" + "`r`n" + $clipboardText
# 変数の内容をクリップボードにコピー
$modifiedText | Set-Clipboard
コメントを残す