VBA使用頻度の高いコード（３）：エクセルシート上の写真カウント

エクセルシート上の写真カウント

シート上の画像のカウント

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub 写真カウント()

Dim ctPicture As Double

'写真数カウント
ctPicture = 0
ctPicture = ActiveSheet.Pictures.Count
If PageCount = 0 Then
Exit Sub
End If

End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝